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ABSTRACT 


Seda pete 


THIS PROGRAM IS YESIGNED YO AID THE ENGINEER IN TROYRLE SHOOTING 
THE FPP=12 HARDWARE, THE PROGRAM CONSISTS ESSENTIALLY OF THREE 
MAJOR SEGMENTS! 


TELETYPE MONITOR 


Sssseestaszszsesgszgs 


THE ENGINEER CAN CONTROL THE OPERATION OF THE PROGRAM AND 
INTERROGATE THE SIMULATOR THROUGH THE MONITOR, THERE ARE SEVERAL 
2 CHARACTER COMMANDS USED FOR CONTROL, (SEE COMMANDS, ) 

THESE COMMANDS ALLOW THE USER TO INPUT HIS OWN FPPej2 

PROGRAM AND RUN IT, YWE FPPel2 PROGRAM CAN CONSIST 

Of ANY SET OF PPP et2 INSTRUCTIONS, 


SIMULATOR: 


THE SIMULATOR 1S THE HEART OF THE PROGRAM, ALL OF THE HAROWARE 
REGISTERS ARE SIMULATED, THE FPP»{2 18 STARTED IN THE MAINTE® 
NANCE MODE AND STEPPED THROUGH AN FPPad2 PROGRAM ONE TIME STATE 
AT A TIME, SIMULTANEOUSLY THE PROGRAM SIMULATES THE HARDWARE 
OPERATION, BEFORE STEPPING TO THE NEXT TIME STATE, sh ee 
COMPARES THE CONTENTS OF THE HARDWARE REGISTERS WHICH CAN RE 

it by ih AN JOT, WITH THE CONTENTS OF THE CORRESPONDING. SOFTWARE 
EG{Ss 


THE FPPe42 PROGRAM CAN BE ANY SET OF FPPe42 INSTRUCTIONS LOCATED 
ANYWHERE IN CORE OUTSIOE THE LIMITS OF THE TRACE PROGRAM, THE 
INSTRUCTION SET CAN BE ANY LENGTH, AN OPERAND TASLE GAN BE ANY 
LENGTH AND ALSO CAN BE LOCATED ANYWHERE IN CORE OUTSIDE THE 
PROGRAM LIMITS, 


MIN] ROUTINES 


A SET OF SUBROUTINES USED By THE SIMULATOR TO PERFORM THE 
HARDWARE FUNCTY{ONS, COMPARE REGISTER CONTENTS, AND REPORT ERRORS, 
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REQUYREMENTS 


#aeceage¢evaaag 


EQUIPMENT 


Z2stsesstsas 

1) AN FPPe12 FLOATING POINT PROCESSOR 

2) A&A PDPe& OR POPel2 WITH AY LEAST 8K OF MEMORY 
3) AN ASR33 OR ASR35S TELETYPE 

STORAGE 

S2eszess28 

THE PROGRAM USES ALL OF FIELD @ ANO® ALL OF FIELO 4 
PRELIMINARY PROGRAMS 

SSSsSeFSegegsRksugssezz 

ALL POPeS OR P§P=12 PROCESSOR AND MEMORY DIAGNOSTICS, 
LOADING PROCEQURE 


SCHHHsHOHstnsesesaeaea 


¢ 


LOAD THE PROGRAM WITH THE BIN LOADER, DIAL LOADER OR PSeB LOADER, 
STARTING PROCEOURE 

SHSevaegaetseaneseagae 

START THE PROGRAM IN 8 MODE AT LOCATION 8820 IN FIELD 8, 


THE PROGRAM WILL ENTER THE TELETYPE MONITOR AND TYPE AN ASTERISK 
(o), THE PROGRAM 1S NOW WAITING FOR INPUT FROM THE TTY, 
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CPERATING INSTRUCTIONS 


Cotes etGaengeevereeeseoad 


THERE ARE TWO SETS OF GPERATING INSTRUCTIONS, THE BASIC SET (3,14) 
WILL AUTOMATICALLY ATTEMPT TO DETECT A FAULTY REGISTER WHITHIN 
A SPECIFIC TIME STATE, 


THE COMPLETE SET (5,2) ALLOWS THE ENGINEER TO USE THE TROVYALE 
SHCOTING CAPABILITIES OF THE PROGRAM ALONG WITH A SCOPE TO 
ISOLATE A FAILING COMPONENT, 


BaSI¢ OPERATING INSTRUCTIONS, 
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1) SEY SRO201. 
2) SET ALL OTHER SWITCHES & @ 
3) TYPE "ALT MODE" 


THE FPPe12 18 STARTED IN THE MAINTENANCE MODE RUNNING AN FPPwi2 
PROGRAM WHICH WAS LOADED WITH THE fRACE PROGRAM, THE PROGRAM 
WILL RUN INDEFINITELY UNTIL AN ERROR IS CETECTED, THE ERROR 
WILL BE TYPED ANO THE PROGRAM WILL WAIT FOR A RESPONSE FROM THE 
TTY KEYBOARD, 


THE FPPe42 PROGRAM RUNNING AT THIS TIME IS THE FPPej2 
CODE-EXTRACTED FROM THE FPP=i2 EXERCISER MAINDEC 1200004, 
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COMPLETE OPERATING INSTRUCTIONS 
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ANY SEY OF FPPeil2 INSTRUCTIONS CAN BE RUN AND CHECKED BY 

THE TRACE PROGRAM, THEREFORE A SEY OF TTY JNPUT COMMANDS 

ARE AVAILABLE 70 ENASLE THE USER To INPUT ANDO RUN HIS OWN 
FPPei2 PROGRAM, COMMANDS ARE ALSO AVAILABLE TO CONTROL 

THE OPERATION OF THE PROGRAM FOR TROUBLE SHOOTING, ORECTIONS 
FOR USING THESE COMMANDS START AT PARAGRAPH 6, 


THERE ARE 142 COMMANOS WHICH CAN BE INPUT THROUGH THE TELETYPE, 
ALL COMMANDS ARE TWO CMARACTERS AND ARE PRECEDED BY A PERIOD (4), 
MOST COMMANDS REQUIRE QNE OR MORE OPERANDS, EACH OPERAND MUST 

BE TERMINATED BY A SPACE OR A CARREAGE RETURN, IN THE PROGRAM 
THERE 1S NO OJFFERENCE WHICH TERMINATOR IS USED, TYPING A 

RUBOUT WILL DELETE ALL OATA AFTER THE LAST TERMINATOR, 

ANYTIME THAT THE SIMULATOR IS RUNNING, TYPING ANY CHARACTER 

WILL TRANSFER GONTROL TO THE TTY MONITOR AT THE END OF THE 
PRESENT TIME STATE, At THIS TIME THE STATUS OF THE 

SIMULATED FrPe{2 CAN BE INTERROGATED, 


INSERTING AN FPPei2 PROGRAM 


THE "AS" GoMMAND ALLOWS THE USER To TYPE IN FOUR DIGIT OCTAL 
WORDS IN SEQUENCE TO BE RUN AS AN FPPad2 PROGRAM, THE FPPei2 
INSTRUCTIONS YOU WISH fO TEST MUST BE TYPED INTO GORE, IF NO 
LOCATION 18 GIVEN TO THE AS COMMANO, {SEE COMMANDS,) THE DATA 
1§ INSERTED STARTING Af 4082 IN FIELO fi, 


THE ",OP" COMMAND {S THE SAME AS THE t,AS" COMMAND EXCEPT frat 
DATA IS INSERTED STARTING AY 4300 JN FYELD 4, THIS IS 
NORMALLY USED TO INSER? OPERANBS ANO/OR A BASE TABLE, 


RUNNING AN FPPel2 PROGRAM 


SeGeeQ_gtteaegerrarewee Veter Fate 


THE FPP=12 PROGRAM CAN BE RUN IN THE TRACE MODE IN WHICH EACH 
TIME STATE 1S TRACED AND CHECKED BY USING THE ",RT" COMMANH, OR 
IT CAN BE RUN [IN TRE FAST MODE WITH THE ",RF" COMMAND IN WHICH 
THE FPP=12 JS STARTED IN NORMAL MOBE AND THE PROGRAM WAITS FOR 
17 TO EXIT, IN THE FAST MODE THE FPPei2 CAN GE STOPPED BY THE 
w'ext COMMAND, THE FPPei2 PROGRAM CAN BE STARTED IN THE DOUBLE 
file MODE BY SETTING THE COMMAND REGISTER WITH THE ",€m" 
COMMAND, 


ALL OTHER COMMANDS AND THE SWITCH REGISTER CAN BE USED TO 
CONTROL THE OPERATION OF THE SIMULATOR, 
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TTY MONITOR 
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THE TTY MONITOR ALLOWS THE USER TO COMUNICATE WITH TRE 
PROGRAM, WE CAN INPUT FPPei2 JNSTRUCTIONS AND QPERANDOS 
To BE RUN aN®D TRACED, HE CAN RUN THE TRACE IN THE SINGLE 
STATE OR CONTINUOUS MODE, HE CAN {NTERROGATE THE STATUS 
OF MEMORY OR ANY REGYSTER AT ANY TIME, 


DUE TO MEMORY EONSTRAINTS, VERY LITTLE ERROR CHECKING IS 
DONE IN THE MONITOR, 


THERE ARE SIX SPECIAL CHARACTERS USED IN THE MONITOR 
TO TELL IT WHAT TO 00, THESE 6 CHARACTERS ARE } 


RETURN TERMINATOR 
SPACE TERMINATOR 

PERIOD COMMAND SWITCH 

RUBOUT DELETES CURRENT DATA ENTRY 

ALT MODE SPECTAL EXIT 

CNTRL EX{T TRACE PROGRAM (SEE COMMANDS 7,) 


THERE ARE A NUMBER OF GOMMANOS WHIGH ALLOW THE USER TO 
CONTROL THE PROGRAM ¢ SEE "COMMANDS" 7, ), MOST OF 

THE COMMANDS REQUIRE ONE OR MORE ARGUMENTS, WITH THE 
EXCEPTION OF THE ,TY COMMAND THESE ARGUMENTS WILL BE 
GROUPS OF 1 = 4 OCTAL DIGITS, EACH COMMAND [S 

SEPERATED FROM [7S ARGUMENT BY A TERMINATOR 

( SPACE OR RETURN ), EACH ARGUMENT {S$ ALSO TERMINATED 
BY EITHER OF THE TWO TERMINATORS, 

THIS MEANS THA? EVERY EQMMAND THAT ACCEPTS AN ARGUMENT 
MUST HAVE AT LEAST TWO TERMINATOR GHARACTERS, ONE TO 
TERMINATE THE COMMAND AND ONE TO TERMINATE EACH ARGUMENT, 
THIS HOLDS TRUE EVEN If NO ARGUMENT IS ENTERED, IN THE 
CASE OF NO ARGUMENT BEING ENTERED, THE SECOND TERMINATOR 
TELLS THE COMMAND ROUTINE TO CHECK TO SEE IF AN ARGUMENT 
WAS INPUT, THE OPERATION OCCURS IN THE FOLLOWING ORDER, 


PERIOO TELLS THE MONITOR THAT THE fWO CHARACTERS PRECEDING 
THE NEXT TERMINATOR ARE TO BE TAKEN AS A COMMAND, 


TWO CHARACTER COMMAND AND A TERMINATOR TELLS THE MONITOR 
TO DECODE THE COMMAND AND TRANSFER TQ THE COMMAND ROUTINE, 
THE COMMAND ROUTINE THEN PERFORMS THE PROPER FUNCTION, 

IF AN ARGUMENT IS NEFDED, THE COMMAND ROUTINE TRANSFERS 
CONTROL BACK TQ THE MONITOR, THE MONITOR REMEMBERS WHICH 
COMMAND {S$ BEING EXECUTED, 


THE NEXT TERMINATOR TRANSFERS CONTROL BACK TO THE 

COMMAND ROUTINE, THES ALSO PASSES ON THE ARGUMENT JF 
ANY, EACH TIME THE PROGRAM TRANSFERES OUT OF THE MONJTOR 
ONLY ONE ARGUMENT IS PASSED ON| 


WHEN A COMMAND THAT USES A FIXED NUMBER OF ARGUMENTS 
(@ OR 1) IS FINISHED, THE PROGRAM TYPES AN ASTERISK (#) 
AND RETURNS CONTROL TQ THE MONT TOR; 














COMMAND FORMATS 


Breezes seszzees 


THE FOLLOWING YS THE FORMAT FOR EACH COMMAND, AFTER THE 
ARGUMENT, IN PARENTHESYS, 1S TWE NUMBER IF ARGUMENTS 

THAT THE COMMAND ACCEPTS, A "C" AS THE NUMBER OF 
ARGUMENTS INDICATES THAT THE COMMAND WILL ACCEPT ARGUMENTS 
CONTINUOUSLY UNTIL ANOTHER COMMAND IS INPUT, FOR THE 
MEANING OF EACH COMMAND AND A DETALLED DESCRIPTION SEE 
PARAGRAPHS 7 AND 8, 


tAS XXXX (0) 
1OP XXXX (C) 
aVY XX (1 0R 3) 
2SA ADOR (4) 
RA ADOR (h) 
1£A ADDR (4) 
eCk (2) 
aRT ADDR (4) 
RF ADOR (4) 
EX (8) 
SH XX (4) 
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7. Ca¥MANOS 
Sasaages 

7.4 SUYMARY (SEE DESCRIPTION (8,) FOR MORE DETAILS) 
Ssssaat 


Pidal INPyT AND OUTPUT 
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,AS ASSEMBLE FPPed2 INSTRUCTIONS AND/OR OPERANDS ARE 
INPUT IN OG@TAL FROM THE TTY AND STORED 
SEQUENTIALLY IN MEMORY, EACH TIME A 
CARRIAGE RETURN IS INPUT THE PROGRAM 
TYPES THE NEXT MEMORY LOCATION, [If AN 
o# JS TYPES (# 3 OCTAL FIELD DESIGNATOR) 
FOLLOWFO BY a SPACE AND 4 OCTAL DIGITS, 
THE LOCATION COUNTER JS CHANGED TO THIS 
FIELO AND ADDRESS, IF NO LOCATION 1S 
INPUT, THE Dava YS STORED STARTING aT 
4992 JN FYUFLO 4, 


OP OPERAND SAME AS THE ,AS COMMAND EXCEPT THA? THE 
LOCATION COUNTER JS SET TO 4408 IN FIELD 
¢ AND CANNOT BE CHANGED BY TKE USER, 


TY TYPE REQUESTED BATA IS TYPED FOR THE OPFRATORS 
USE, THE BATA REQUESTS ARE! 


PQ SIMULATED © REGISTER 

FQ FPPei2 0 REGISTER 

A SIMULATED A REGISTER 

8 SIMULATED 8 REGISTER 

MQ SIMULATED MQ REGISTER 

AG SIMULATED FAC 

PC SIMULATED FRC 

IR SIMULATED ENSTRUCTION REGISTER 
OP SIMULATED OP ADDRESS 

AD SIMULATED ADDRS REGISTER 

ST SIMULATED STATUS REGISTER 

PS SIMULATED TIME STATE REGISTER 


(SEE DESCRIPTION ON NEXT PAGE) 
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FS FPPeq2 TIME STATE REGISTER 
(SEE DESCREPTION BELOW) 

AP THE APT LOCATED IN THE PROGRAM, YHIS 
1S THE APY WHICH [S USED IF NO OTHER 
1S SELECTED 

X SJ]MULATED {NDEX REGISTERS 

SH SIMULATED SHIFT REGISTER 

AL ALL OF ABQVE 

F AAAA N N NO, OF WORDS STARTING AT FIELO F 
ADDRESS AAAA, 

CNTRL 8 RETURN TO OJAL 

CNTRL A RETURN TO PS@ MONITOR 

CNTRL 6 RETURN TO OTA MONITOR 
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TIME STATE REGISTER seoenensesseaesnaaan 
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AC FUNCTION 

BIT 

ag ae SEIGNIFIG@GANT BIT OF Time SPATE COUNTER 

G4 BIT < OF THE TIME STATE COUTNER 

@2 BIT > ar THE TYME STATE COUNTER 

Q3 BI? 3 aF THE TIME STATE COUNTER 

B4 CNR DEPOSIT FLOP (4) 

25 CNR FETCH FLOP (1) H 

06 CNR ss FLOP (4) H 

Q9 CNR EX{T FLOP t4) 4H 

28 CNR INPATE FLOP (4) # 

a9 CNR PROCESS FLOP (4) H 

12 ASTQ SHFT Fat FRAC H (NOT USED IN TRACE) 

44 AST1 NO SHFT (f£) # (NOT USED IN TRACE) 
y aN an 
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Tate PROGRAM SONTROL 
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EA 
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ok? 


SET SINGLE 
STATE ADDR 


RESET SINGLE 
STATE ADOR 


EXIT ADDRESS 


CLEAR SINGLE 
STATE SWITCH 


RUN TRACE 


RUN FAST 


SET COMMAND 
REGISTER 


4 9161? aCTAL ADDRESS {5S 

INPUT FROM TTY, THE PROGRAM WILL ENTER 
THE SINGLE STATE MODE WHEN THIJS ADORESS 
1S ENCOUNTERED IN THE STEP ROUTINE 


4 DIGIT OCTAL ADDRESS 1S JNPUT 

FROM THE Ty, THE PROGRAM WILL EXET THE 
SINGLE STATE MODE WHEN THIJS AQPRESS {5S 
ENCOUNTERES IN THE STEP ROUTINE 


4 DIGI? OCTAL ADDRESS 1S [NPUT FRQM THE 
TTY, WHEN THIS ADORESS JS ENCOUNTERED 

IN THE STEP ROUTINE, THE PROGRAM WILL 

CLEAR THE PPPed2 WITH AN "FPICL® [OT AND GO 
TO INITIATE TO RESTART THE FPPe12 AND THE 
SIMULATOR 


CLEARS THE PROGRAM SINGLE STATE | 
SWITCH WHIGH WAS SET BY THE ,SA COMMAND, 


4 DIGIT ADSRESS OF THE APT IS INPUF 

FROM YHE Tty AND THE FPRei2 AND SJMULATOR 
ARE STARTES at THIS ADDRESS, {F TRE APT 
ADORESS 1S g9@@ THE PROGRAM APT ANS {NDEX 
REGISTERS WILL BE USED TO RUN THE PPPei2 
PROGRAM INPUT VIA THE ,AS COMMAND, 

IF THE USER SPECIFIES HIS OWN APT 
ADORESS, THE FIELO BITS OF THE APT 
ADDRESS MUST BE SET IN THE LAST O16]T 

OF THE ,CM COMMAND, 


SAME AS RT EXCEPT THAT THE SIMULATOR IS 
NOT USED AND THE FPPe12 RUNS IN [78 
NORMAL MODE (NOT MAINT) 


4 DIGITS ARE INPUT FROM THE TTY AN® LOADED 
INTO THE PROGRAM COMMAND REGISTER, THIS 
WORD 18 USED WITH THE "FRPCGOM" TOT TO START 
THE FPPei2, %F AN ALTERNATE APT ABDRESS 
1S USED WIftH THE ,RT OR ,RF COMMANDS 

THE FIELD BITS OF THE APT ADDRESS MUST 
INPUT AS THE LAST DIGIT OF THE ,CM 
COMMANB, 














1X 


+SH 


EXIT FPPel2 


SET SPECIAL 
SHIFT 


A CPU FORCED EXIT !S {SSUED TO THE FPPei2, 
THE CURREN® INSTRUCTION IS FINISHES AND 
THE FPPet2 EXITS STORING THE APT, 


2 DIGITS ARE LOADED FROM THE TTY INTO A 
SPECIAL SHIFT COUNTER IN THE PROGRAM, ANDO 

A SPECYAL SHIFT FLAG IS SET, 

tF NO BIGI?S ARE JNPUT BEFORE THE SECOND 
TERMINATOR, THE SPECIAL SHIFT COUNTER WILL 
BE SET TO @ AND THE SPECTAL SHIFT PLAG WILL 
BE RESET, THIS SPECIAL SHIFT COUNT [{S 

USED IJIN THE MULTIPLY AND DIVIDE TO ALTER 
THE NORMAL CYCLE OF THESE JNSTRUCTIONS IN 
TIME STATE 2 ONLY, 
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a, DESURIPTION OF COMMANDS 
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8,4 DATA INPUT AND QUTPUT 
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SINCE IT IS NECESSARY TO INPUT Frepe12 [NSTRUCTIONS AND 
OPERANDS TO 8E RUN, AND TQ INTERROGATE THE STATUS OF THE 
SIMULATED REGISTERS, THE FOLLOWING TTY CONTROL COMMANOS 
ARE DEFINED, ANY TIME THAT THE TRACE PROGRAM IS RUNNING 
TYPING A CARRIAGE RETURN WILL TRANSFER CONTROL TO THE 
TTY MONITOR, TYPING "ALT MODE”™ WILL RETURN CONTROL TO 
THE TRACE PROGRAM, 


Bitei AS USED 70 INPUT FPPe42 JNSTRUCTIONS WRITTEN BY THE 

USER TO BE RUN BY THE TRACE PROGRAM, ANY NUMBER 
OF INSTRUCTIONS CAN BE INPUT TO BE RUN IN 
SEQUENCE AS AN FPPei2 PROGRAM, THE INSTRUCTIONS 
MUST BE CONVERTED INTO OCTAL CODE BY THE USER 
AND MUST BE ENPUT IN QCTAL, CARE MUST BE TAKEN TQ 
INPUT GORRECT PIELO DESIGNATORS IN THE COMMAND, 
THIS 18 ESPECIALLY TRUE WITH BITS Fadi OF DOUBLE 
WORD COMMANOS, INPUT DATA IS NORMALLY STORED 
SEQUENTIALLY SPARTING AT 4008 IN FIELO 4 
HOWEVER THE USER MAY CHANGE THE STORAGE *  OCATION 
AT ANY TIME #YPING AN ASTERISK FOLLOWED BY 
A FIEL® DESIGNATOR, A SPACE, AND 4 DIGIT 
ABSOLUTE ADORESS (1,8, #2 $0890), EACH TIME A 
CARRIAGE RETURN IS TYPED THE PROGRAM RESPONDS WITH 
THE NEXT ADORESS TO BE STORED INTO, 
SINCE fHE TTY MONITOR [S USED TO INPUT DATA I7 3S 
NOT NEGESSARY 70 END TRE ,AS COMMAND, ONCE THIS 
ROUTINE 3S ENTERED IT WILL CONTINUE TO ACCEPT AND 
STORE SATA UNTEL A NEW COMMAND IS INPUT, 


TWO EXTRA FEATURES OF THE {AS COMMAND ALLOW THE 
USER TO INPUT THE INITIAL SETTINGS OF THE FAC 
AND INDEX REGISTERS, WHILE IN THE ,AS ROUTINE 
TYPING "AG X¥XM XXXX XXX" WILL CAUSE THE 
PROGRAM TO STORE THE THREE OCTAL ARGUMENTS INTO 
THE FAC PORTION OF THE APT, TYPING "X#® XXXX" 

(# ew THE INDEX REGISTER NUMBER) WILL CAUSE THE 
PROGRAM TO STORE THE OQCTAL ARGUMENT INTO THE 
SPECIFIED [NHEX REGISTER LOCATED IN THE PROGRAM, 
AFTER THE ARGUMENTS ARE INPUT AND STORED BY THE 
PROGRAM THE NORMAL PORTION OF THE ,AS ROUTINE 
CONTINUES, BOTH OF THESE FEATURES ASSUME THAT 
THE USER WILL START THE PROGRAM WITHOUT USING AN 
AUXILIARY AP? ADDRESS (SEE RT ANDO ,RF), 


8.4.2 oor USED TO INPUT OPERANDS FOR USE WITH THE FPPei2 
INSTRUCTIONS JNPUT VIA THE ,AS COMMAND, OCTAL, 
DATA TS INPUT FROM THE TTY AND STORED SEQUENTIJALLY 
STARTING AY 41402 IN FIELD 4, ‘THE STARTING ADDRESS 
CANNOT BE MODIFIED BY THE USER, LIKE THE ,AS 
COMMAND THIS ROUTINE HAS NO WAY TO END, THE ROUTINE 
WILL CONTINUE 70 INPUT AND STORE DATA UNTILL A NEW 
COMMAND IS TYPED IN, 
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THE PROGRAM CAN TYPE QUT THE CONTENTS OF ANY MEMORY 
LOCATION(S), THIS IS NORMALLY USED TO [NTERROGATE 

THE CONTENTS OF SIMULATED REGISTERS OR OPERANDS, 

(SEE "7,4,%4 SUMMARY" FOR ARGUMENT LIST.), ALL 

TYPEQUTS EXCEPT FC, FS, AP ARE YHE CONTENTS OF THE 
SIMULATED REGISTER AT THE TIME OF THE TYPEOUT, 

THIS [8 THE [NFORMATION THAT SHOULD BE CONTAINED JN THE 
FPPeat2 HARDWARE REGISTER AF THE TIME, 


A SCOPE CAN BE USED 70 FIND OUT IF THE HARDWARE 
REGISTER JS GORRECT OR IN ERROR, IF IT IS KNOWN 
THAT AN ERROR OCCURS IN A SPECIFIC TIME STATE, THE 
FPPe{2 AND TRACE PROGRAM CAN BE STOPPED BEFORE 
ENTERING THAT TIME STATE (SEE SA), AT THIS 

TIME THE USER GAN TYPEOUT fHE CONTENTS OF VARYOUS 
REGISTERS AND COMPARE THE FPPeji2 TO THIS DATA TO 
DETERMINE THE GAUSE OF THE FAILURE, 


THE VARIABLE T¥YPEOUT (F AAAA N) CAN BE USED TO 
CHECK PPPed2 INSTRUCTIONS AND OPERANDS INPUT BY THE 
USER BEFORE RUNNING THEM, 


ANY TIME THE PROGRAM JS TYPING OUT, {7 CAN BE STOPPED 
BY TYPING A RETURN ON THE KEYBOARD. 


D 
THE PROGRAM WILL THEN RETURN CONTROL TO THE TTY MONITOR, 


THE PROGRAM WILL READ THE BILAL MONITOR IN FROM 
TAPE UNIT @ aNO TRANSFER CONTROL TO THE DIAL 
MONITOR, 


THE PROGRAM JUMPS TO 7600 IN FIELD @, IF THIS 
AREA OF MEMORY HAS NOT BEEN ALTERED, CONTROL 
WILL BE TRANSFERED YO PSB, 


THE PROGRAM jUMPS T0 7700 §N F{ELD 2, IF THIS 
AREA OF MEMORY HAS NOT BEEN ALTERED, CONTROL 
WILL BE TRANSFERED TO THE DTA MONITOR, 
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SINGLE STATE CONTROL 
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FyERY TIME STATE JS ENTERED THROUGH A SUBROUTINE CALLED 
"STEP", THE DEFINED INSTRUCTION "“FPSTEP" GOES TO STEP, 

Ir? 1s IN THE "STEP" ROUTINE THAT MAST ERROR ARE DETECTED, 
THE "STEP" ROUTINE ALSQ CHECKS VAR{OUS INFORMATION INPUT 
BY THE WVSER TO CONTROL THE OPERATION OF THE PROGRAM, 

IN THE SINGLE STATE MODE THE PROGRAM WILL TRANSFER 
CONTROL TO THE TTY MON|TOR EACH YIME [fT ENTERS THE "STER" 
SUBROUTINE, THIS !S DONE AFTER CHECKING FOR ERRORS, BUT 

BEFORE STEPPING THE FPPe12 TO FAE NEXT TIME STATE, THE 
FOLLOWING COMMANDS ARE USED TO INPUT THE INFORMATION USED 
IN THE "STEP" ROUTINE, THE ADDRESS REFERRED TO [S THE 
ADDRESS IN WHIGH THE "PSTEP™ INSTRUCTION CALLING THE 

STEP ROUTINE JS LOCATED, 


SA EACH TIME THE "STEP" ROUTINE IS ENTERED, THE ADORESS 
INPUT AS THE ARGUMENT IN THE {SA GOMMAND [S COMPARED 
WITH THE ADDRESS JF THE "FSTER" INSTRUCTION, IF 
THERE [S A MATCH, THE PROGRAM SETS THE PROGRAM SINGLE 
STATE SWITCH, THE PROGRAM WILL THEN BE JN THE SINGLE 
STATE MODE, THE PROGRAM S{NGLE STATE SWITCH 
PERFORMS THE SAME FUNCTION AS SWITCH 3 ON THE CONSOLE, 
(SEE SWITCH OPTIONS 9,) THE PROGRAM WILL STEP THROUGH 
ONE TIME STATE EACH TIME AN "ALT MODE" IS TYPED, 
BEFORE TRANSFERRING TO THE TTY MONITOR THE PROGRAM 
WILL TYPE THE LOCATIONSS OF THE "FSTEP” INSTRUCTION, 
THE USER CAN THEN LOOK AT HE LISTING TO FIND WHiGe 
TIME STATE IS ABOUT TQ BSE ENTERED, IF THE ,SA 
ARGUMENT JS @@02 THERE WILL NEVER BE A MATCH SO THE 
THE PROGRAM WILL NOT ENTER THE SINGLE STATE MQOE, 


aRA EACH TIME THE "STEP" ROUTINE [S REENTERED 


FROM THE TTY MONITOR IN THE SINGLE STATE MODE, THE 
ADDRESS OF THE "FSTEP" INSTRUCTION IS COMPARED WITH 

THE ,RA ARGUMENT, IF THERE IS A MATCH, THE PROGRAM 
SINGLE STATE SWITCH 1S RESET AND THE PROGRAM CONTINUES) 
BY USING THE ,SA AND .RA COMMANDS TOGETHER, THE 

PROGRAM CAN BE RUN IN THE SINGLE STATE MOQE FOR A PEW 
TIME STATES AND IN THE CONTINUOUS MODE FOR ALL EXCEPT 
THOSE TIME STATES, 














8,2,4 
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THE PROGRAM SINGLE STATE SWITCR [S CLEARED 

BY THIS COMMANDS, THE SEY SINGLE STATE ADQRESS 
(,SA) AND RESET SINGLE STATE ADDRESS (,RA) ARE 
NOT AFFECTED, THIS COMMAND ALLOWS THE VSER TO 
FNTER THE SINGLE STATE MODE AT A GIVEN TIME STATE 
WITH THE ,SA COMMAND AND STEP THROUGH A VARTABLE 
NUMBER OF TIME STATES, THEN CLEAR THE SINGLE 
STATE SWITCH TO RUN CONTINUOUSLY UNTILL THE 

TIME STATE IS REACHED AGAIN, 


FACH TIME THE "STEP" ROUTINE IS ENTERED, THE 
ADDRESS OF THE "FSTEP” INSTRUCTION IS COMPARED 
WITH THE ,FA ARGUMENT, IF THERE JS A MATCH, 
THE PROGRAM {SSUES AN "FPIEL" 107 TO THE FPPej{2 
AND GOES TO INLATE TO RESTART THE FPPet2 AND 
THE S]MULATOR, THIS COMMAND JS USEFULL IF AN 
ERROR OCCURS IN THE MIDOLE OF aA MAJOR STATE, 
THE REMAINING TIME STATES AND INSTRUCTIONS CAN 
BE BYPASSED, 


-~ 


8,8 TRACE CONTROLS 


THE FOLLOWINGS COMMAN3IS ARE USED TO SETUP, START AND 
STOP THE TRACE SIMULATION OF AN FPPed2 PROGRAM, 


8,3.4 .C™ LOADS THE COMMAND REGISTER WITH ONE 12 BIT 
WORD (4 OCTAL DIGITS), THIS WORD JS ENTERED 
AS THE ARGUMENT OF THE ,CM COMMAND, 
THE COMMAND REGISTER WILL BE USED WITH A "FPCOM" 
1OT WHEN STARTING THE FPPe{2 AND THE SIMULATOR, 
IF AN AUXILIARY ADDRESS JS USED WITH THE ,RT OR 
»RF COMMANDS, THE FIELD BITS OF THE APT ADDRESS 
MUST BE ENTERED AS THE LAST DIGIT OF TRE ,CM 
COMMANDS, 


8,3,2 SH A MAINTENANCE {OT IN TRE FPPei2 ALLOWS A USER 
TO LOADS THE SHIFT COUNTER UNDER PROGRAM CONTROL, 
THIS IS ONLY USEFULL IN A MULTIPLY OR DIVIDE 
INSTRUCTION, TYPING ,SH WETH AN ARGUMENT 
CONSISTING OF A TWO OCTAL BIGIT NUMBER WILL LOAD 
A SPECTAL SHIF? REGISTER WITH THE ARGUMENT AND SET 
A SPECIAL SHIFT FLAG, WHEN TIME STATE 2 OF A 
MULTIPLY OR OIVIDE IS ENTERED, THE PROGRAM 
LOOKS AY WE SPECIAL SHYFT FLAG, JF THE FLAG JS 
SET, THE SPECIAL SHIFT REGISTER 1S LOADED INTO ~ 
THE HARQOWARE AND SIMULATED SHIFT COUNTER, 


TYPING ,SH FOLLOWED BY TWO TERMINATOR CHARACTERS 
WITH NO ARGUMENT WILL RESET THE SPECIAL SHIFT 
FLAG AND ZERO fHE SPECIAL SHIFT REGISTER, 
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af 


8,3,5 


“RT 


THIS COMMAND TRANSFERES CONTROL TO THE 
TRACE SIMULATOR, THIS WILL START THE FPPei2 
IN MAINTENANCE MODE AND TRACE EACH TIME STATE, 


THE PROGRAM WAS THE ABILITY TO RUN A FPPej2 
PROGRAM LOCATED ANY WHERE [{N MEMORY OUTSIDE 

THE LIMITS OF THE TRACE PROGRAM, THE APT AND 
INDEX REGISTERS CAN ALSO BE LOCATED ANY WHERE 
IN MEMORY EXCEPT LOCATION @@90 OF ANY MEMORY 
FIELD, WITHIN THE TRACE PROGRAM JS AN APT 
WHICH IS SET UP AUTOMATICALLY TO RUN A FPPei2 
PROGRAM LOCATED AT 4088 IN FIELD 4, THE BASE 
POINTER IS SET TO 4108 IN FIELD 4, THE INDEX 
POINTER IS SET TO A SET OF INDEX REGISTERS 
LOCATED WITHIN THE TRAGE PROGRAM, THIS APT 

AND INDEX TABLE !S FOR THE CONVIENENCE OF THE 
USER SINCE THE ,AS AND ,OP COMMANDS STORE 

THIER DATA IN FIELD 4 AT LOCATIONS 4882 AND 4122 
RESPECTIVLY, THIS APT AND INDEX TABLE 

WILL BE USED J? THE USER SPECIFIES ADORESS 

@feae aS THE aP? ADDRESS, THE USER MAY SPECIFY 
THE AOBRESS OF HIS OWN APT BY TYPING %,RT ADDR", 
THE AUXILIARY APT AND ENDEX REGISTERS MAY BE 
SETUP BY USING THE ,AS COMMAND, THESE MAY ALSO 
BE PART OF A REAL FPPe{2 PROGRAM LOCATED IN 
FIELD 2 OR ABOVE WHICH WAS PREVIOUSLY LOADED 

BY SOME OTWER MEANS, 


ma aan 


8,5,5 


2EX 


THIS COMMAND STARTS THE FPPeg2 IN THE NORMAL 
RUNNING “O3E, NO ERROR CHECKING OR TRACING 

IS DONE, HE PRIMARY USE OF THIS COMMAND 

IS T2 ALLOW TRE FPPet2 TO RUN A PROGRAM af 

ITS FASTEST SPEED FOR SCOPING, THE RULES 
PERTAINING TA FRE AP® AND AUXILIARY ADDRESSES 
ARE THE SAME AS THOSE FOR ,RT (SEE 8,353,393), 
ONCE THE FPPei2 1S STARTED THE PROGRAM WAITS 
IN A LOO® FOR THE FPPed2 TO EXIT OR FOR AN 
INPUT FROM THE TYY KEYBOARD, THE USER CAN 
TYPE A CARRATGE RETURN TO BRING CONTROL TO THE 
TTY MONITOR, AY THIS TIME THE FPP@12 1S STILL 
RUNNING SUY THE PROGRAM JS NOT CHECKING IT, 
TYPING A ,EX COMMAND AT THES TIME WILL FORCE 
THE FPPei2 Ta EXIT AND RETURN CONTROL TO FHE 
TTY MON] TOR, 


IF THE FPPe12 ~S RUNNING, a "CPU FORCE EXIT" 
TOT 1S ISSUED, SUFFICIENT MAINTENANCE [OTS 
ARE ISSUED To ALLOW THE FPPw12 TO COMPLETE 
ITS CURRENT {NSTRUCTION AND STORE THE APT, 
THUS PERFORMING A NORMAL EXIT, 
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SwiTty OPTIONS (USED ONLY IN TRACE MODE) 


SRr272 (1) 
$2¢i (1) 
SRZ2 (4) 


SR23 (4) 


SR24 (3) 


SR@5 (4) 


a \ 
a 
Na 


INHIALT ERROR WALT 
INWIRIT ERROR TYPEQUTS 


RESTART PROGRAM AFTER AN EXJT, USED IN BOPH 
TRACE AND FASY MODE, 


SINGLE STATE MODE, OVERRIDES THE .SA ,RA 4CL 
COMMANDS (SEE "SINGLE STATE CONTROLS” 8,2) 


ENTER STOP, STOPS THE PROGRAM EACH TIME A MAJOR 
STaTe {S ENTERED, TYPE ALY MODE TO CONTINUE, 


TTY TRACE, TYPES EACH MAJOR STATE AS If [S 
ENTERED, 


oy weoleralnaie Lemmas oh te Md 


cc. 


-_ 


H 


ERRORS 


#3282504 
THE YRACE PROGRAM CAN SETESCT 7 TYPES OF ERRORS IN THE FPPe{2, 


THERE IS ONE TYPEOQUT IN TRE ERROR ROUTINE WHICH MAY OR 

MAY NOT BE AN ERROR, THIS TYPEQUT OCCURS IF THE FPP#42 

CID NOT CAUSE A SKIP AFTER A “FPST™ JOT, AFTER THE TYPEOVU?, 
CONTROL IS TRANSFEREN TO THE TTY MONITOR, TYPING 

"alLT MODE" wiLL CAUSE THE PROGRAM TO CONTINUE RIGHT AFTER 
THE "FPST" JOT, THIS TYPEQUT IS! 


"PPPei2 OID NOT START" 


ONE ERROR, DATA ERROR STORING THE APT, WHICH [S THE LEAST 
LIKELY TO OCCUR HAS [YS QWN MESSAGE FORMAT, THIS 
ERROR TYPES THE MESSAGE! 


"ERROR SAVING APT IN EXIT" 


AFTER TYPING THE MESSAGE, SINCE THE FPPei2 HAS FINISHED 
TTS EXIT, THE PROGRAM CONTINUES AS THOUGH NO ERROR 
OCCURED, 


ALL QTHER ERRORS TYPE A MESSAGE WITH THE SAME FORMAT, 
"FRROR XXXX # TYPE # FPP YYYY VYYY «# PROG 2222 2222" 
THE MEANING OF THIS MESSAGE 1S} 


ERROR SINCE THE TTY [S USED FOR OTHER TYPEOUTS, 
THIS 1S DISTINGUISHED AS AN ERROR MESSAGE, 


x XXX THE P,C,+%4 OF THE INSTRUCTION THAT TRANSFERED 
TO THE ERROR CHECKING ROUTINE, 8Y LOOKING IN THE 
LISTING AT THE P,C, LOCATION (ALWAYS FIELD 2), 
THE USER CAN DETERMINE WHICH TIME STATE FAILED, 
IF THE P.C, POINTS TO A LOGATION AFTER AN “FSTEP" 
INSTRUCTION, THE ERROR WAS GENERATED IN THE 
PREVIOUS TIME STATE, 


TYPE TYPE OF FRROR $S YRE REGISTER IN WHICH THE 
ERROR WAS DETECTED (IE, © REG), 


YYYY THE ERRONEOUS DATA READ FROM THE FPP#12 
HARQWARE REGISTER, 


z22zz WHAT THE DATA SHOULD BE AS DETERMINED BY 
THE TRACE SIMULATOR, 




















EXAMPLE 


see ® eg ae @ 


FRROR 2117 # O REG # FPP 1234 4234 # PROG 1254 1235 


THE P.C, SAYS THAT THE ERROR OCCURED IN DEPOSIT 
STATE 11, (THE P,C, POINTS TO THE "FSTEP" TO ENTER 
DEPOSIT STATE 12), 


THE SAD DATA WAS DETECTED IN THE 0 REGISTER, 
THE FPPe12 0 REGISTER CONTAINS 1234 1234 
THE FPP#12 0 REGISTER SHOULD CONTAIN 1234 1255, 


IT APPEARS THAT THE FPPei2 DID NOY ROUND UP WHEN 
IT SHOULD HAVE, 


NOTE a@#een 


Pe e@eaua a taanvaae 


THE DATA WORDS ARE SPLIT INTO TWO 12 BIT PARTS 

EVEN THOUGH THE REGISTER IS A SINGLE 24 BIT REGISTER, 
THIS 18 SO THAT IT JS EASTER TO DETERMINE WHETHER THE 
ERROR WAS tN TTHE MSW OR LSW OF THE REGISTER, THIS IS 
DONE BECAUSE MOST SIGNALS IN THE HARDWARE REFERENCE 
THE MSW OR LSW OF A REGISTER, 


| an Z 
7 i 
2 t 

i ‘ 
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‘a 


ae 


a 


12,1 


12,2 
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' 
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TYPES OF ERRORS 


VFeF®wewasZ"FnqGauae ee @ @ 


TIME STATE 
NOTE 
ooee 

0 REG 

STATUS 

OP aDOR 

ADDRS 

MEMORY 
NOTE 

ERROR HALT 


Fe twne tena 


AN ERROR IN THE STATE GENERATER, THIS 
Tou. Se A TIME STATE OR MAJOR STATE 
ERROR, 


SEE PARAGRAPH 7,1 FOR A DESCRIPTION 
OF THE TIME STATE REGISTER 


A DATA ERROR IN THE 0 REGISTER, 

AN ERROR IN THE STATUS REGISTER, 

OP ANDRESS ERROR, 

ERROR IN THE ABORS REGISTER, (APT ADDRESS) 
ERRONEQUS DATA STORED {NTO MEMORY BY 

THE FPPai2, 


THIS ERROR WILL OCCUR {IF THE FPPei2 STORES 
DATA INTO A NON@EXESTENT MEMORY FIELD, 


IF SROB22 THE ERROR ROUTINE GOES TO THE TTY MONITOR 
AND WAITS FOR THE OPERATOR, TYPING "ALT MODE" WILL 
CAUSE THE PROGRAM TO CONTINUE, 














SS ee 


a 


11; 


THE PROGRAM LISTING Pee TVTETeTeTT TTT tr 


SEVERAL PRE@BEFINES ENSTRUCTIONS ARE USED IN THE TRACE 
SIMULATOR, THESE INSTRUCTIONS ARE DEFINED AT THE 
BEGINNING OF THE LISTING, 


THESE INSTRUCTIONS ARE USED TO SIMPLIFY THE CODING, 

AND TO MAKE THE LISTING RESEMBLE THE FPPede FLOW PRINTS, 
THE CODING OF THE SIMULATOR WAS WRITTEN USING THE FPPel2 
FLOW PRINTS, MANY OF THE COMMENTS ARE COPPJED FROM 

THE FLOW PRINTS, 


ANY TIME THE LISTING IS BEING USED, THE USER SHOULD ALSO 
WAVE A SET OF FPPei2 FLOWS, USING THE FPP=i2 FLOWS WILL 
CLARIFY THE PROGRAM LISTING AND MAKE IT FASY TO FOLLOW, 
AS FEW INSTRUCTIONS aS POSSIBLE ARE USED TO ACCOMPLISH 
THE FUNCTION OF ONE ALOCK IN TRE FLOWS, 


THE START OF EVERY MaJOR STATE AND TIME STATE TS LABELED 
WITH A TAG THAT STATES AS CLOSE AS POSSIBLE WHICH MAJOR 
STATE AND TIME STATE J? 1S, MOST OF THE TAGS CONSIST OF 
THE MAJOR STATE NAME, ABBREVIATED, FOLLOWED BY THE TIME 
STATE NUMBER, (IE, INIT2 & INITIATE STATE 2), 

AT THE BEGINNING OF EACH MAYOR STATE IS A TAG WITH THE 
MaJOR STATE NAME AND NO TIME STATE NUMBER, FROM THIS 
TAG TO THE FIRST TIME STATE ARE INSTRUCTIONS TO SETUP 
THE PROGRAM FOR THE MAYOR STATE AND CLEAR TEMPORARY 
REGISTERS AND FLAGS, 


an 

/FLOATING POINT EXERCISER OLALi2 voas Ge APRe72 13137 ACE 1 : 
/ Sw2 C ERROR HALT 
/ Swi fy ERROR TYPEOYUT 
/ Sw 1 RESTART FPP AFTER EXIT 
/ Sw3 ‘ STEP MODE 
/ SwW4 1 ENTER STOP 
/ SwW5 4 TRACE 
/ CONTROLS 
/ 1SA LOaD START STEP ADDRESS 
/ »RA LOAD RESET STEP ADORESS 
/ EA LOAD EXIT ADDRESS 
/ Che CLEAR STEP FLAG (EXIT STEP MODE) 
/ AS ASSEMBLE 
/ aRT RUN TRACE MODE 
/ aRF RUN FAST MODE 
/ ivy TYPE CONTENTS OF REGISTER 
/ 10M LOAD COMMAND REGISTER 
/ vEX FPP EXIT 
/ 10P LOAD OPERAND TABLE 
/ 1$H SET SHIFT COUNTER AND FLAG 
/ NO INPUT WILL RESET FLAG 
/ CNTRL OD RETURN TO DIAL 
/ CNYRL P RETURN TO PS8 
/ CNTRL © RETURN TO DTA MONITOR 








Sn? 


ERROR WALT 


~ 


~~~ HR NNN HR ROR ON ON RH ORONO 


TYPEOQUTS 


ae 


OTALi2 VOaS 6=APRe72 


PROGRAM © REGISTER 
FPP O REGISTER 

A REGISTER 

8 REGISTER 

MQ REGISTER 
PROGRAM FAC 
PROGRAM FPC 
PRAGRAM FIR 

OP ADDRESS 

ADDRS 

STATUS 

PROGRAM STATE 
STATE READ FROM FPP 
AP? 

INDEX REGISTERS 
SHEFT REGISTER 

ALL OF ABOVE 


13137 


FIELO, 12 BIT ADDR, COUNT 


PAGE 2 





4028 
4120 


6554 
6552 
6553 
6554 
6555 
6556 
6557 


6961 
6562 
6563 
6564 
6565 
6567 
6566 


ate, 
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OMODE 


/MACRO DEFINITIONS 


REFINE NPAGE< 
JMP { (20087622 
PAGED 


/BUFFERS FOR FPP CODE 


TEST3 4020 
OPERND| 4102 


/YOT DEFINITIONS 


FPINTs 6554 
FP{CLe® 6532 
FPCOMe 6553 
FPHLTs 6554 
PFPSTs 6555 
FPRS?s 65356 
FPIStTe 6557 


FMAINTs 6561 
RSTATEs 6562 
ROMSWe 6563 
ROLSwWe 6564 
RAPT: 6565 
LSHFTs 6567 
ROOPs 6566 
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Swe 


4577 
4576 
4575 
4574 
4573 
4572 
4571 
4579 
4567 
4566 
4565 
4564 
4563 
4562 
4561 
4562 
4557 
4556 
4555 
4554 
4553 
4552 
4551 
4559 
4547 
4546 
4545 
4544 
4543 
4542 
4544 
4540 
4537 
4536 
4535 
4534 
4533 
4532 
45314 
4530 
4527 
4526 
4525 


ERROR WALT 


/ INSTRUCTION 


AMBOs 
APBOs 
CAPTs 
CLEARS 
CLRAs 
CLRBs 
CLROs 
CMEMES 
CMEMFs 
DECAPTs 
NECOPs 
ENTERS 
FSTEPS 
GETAPTs 
GETOPs 
GETPCs 
GETXs 
INCAPTa 
INCOPs 
INCORS 
INCPEa 
INCSTa 
INCXs 
LOaDAs 
LOADACs 
LOADBs 
LOQAQMQs 
LOAQOS 
LOAQOPs 
LOADPCS 
MOVEX# 
NORMs 
PUTXe 
SAEZs 
SAGZs 
SALZze 
SHF Tas 
SHF TOs 
SOEZs 
STORAS 
STORBs 
TOMEMs 
TRACES 


JMS 
Jms 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
Jms 
Jms 
Jms 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMs 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 
JMS 


PO 88 SO O-8 O-E O-R O08 8 OE 8-8 OO 8-8 0-6 0-8 2-8 0-8 84S O-8 OS OO +-O8 OS OE OO O-4 0-4 BS 66 O48 OS OO OE OS 8-~S O-O8 8-8 OO 8-8 O-D O-9 8 OW 8-8 


DIAL12 vV2ez3 6eAPRa72 {3137 Pace 4 
DEFINITIONS 
ESUBAB JA MINUS B TO 0 
£a00aa JA PLUS B TO O 
CAPTe¢ 7COMPARE APY ADDRESS (ADRS) 
EFCLR /CLEAR FPP AND PROGRAM REGISTERS 
ECLRAX /JCLEAR THE A REGISTER 
ECLRAX CLEAR THE B REGISTER 
CCLROX /CLEAR THE O REGISTER 
ECMEML /CHECK MEMORY EXPONENT 
ECMEM2 /COMPARE MEMORY FRACTION 
CAPTOEC /JDECREMENT THE APT ADDRESS (ADRS) 
EOPDEC /JDECREMENT THE OP ADDRESS 
CSETUP /SETUP TO ENTER A MAJOR SPATE 
CSTEP /CHECK REGS AND STEP TO THF NEXT PIME STATE 
CGAP? /QUTBRK USING ADRS 
GOP /OUTBRK YSING OP ABORESS 
rcPec /OUTBRK USING FRE 
EXGETX /GEY PROGRAM JNDEX REGISTER 
EINCS INCREMENT APT ADQRESS (ADRS) 
FINCY /INCREMENT THE OP ADDRESS 
FOPLUS1 /JINCREMENT THE QO REGISTER 
CINC2 /INCREMENT THE PPC 
ESTING /INCREMENT YIME STATE REGISTER 
EXPLUS{ /JNCREMENT THE PROGRAM INDEX REGISTER 
[TOA /LOaD THE A REG WITH REG IN NEXY LOCATION 
ETOAG /i,Oa0 THE FAC WITH REG IN NEXT LOCATION 
ETOB /LOAD 8 REG WITH REG IN NEXT LOCATION 
ETOMG 7L0A0 MQ REG WITH REG IN NEXT LOCATION 
cToo /LOAD O REG WITH REG IN NEXT LOCATION 
ETOQP /,0aD OP ADDRESS WITH REG IN NEXT LOCATION 
ETOPC ALOQAD FPC WITH REG IN NEXT LOCATION 
EPINDEX /MOVE USER INDEX REGS TO PROG INDEX REGS 
EXNORM /NORMALIZE THE O REGISTER 
EXPUTX /STORE DATA IN PROGRAM INDEX REGISTER 
CAEZ /SKIP IF Fac 8 Q . 
CAGZ /SKIP TF FAC JS GREATER THAN @ 
CAL# SKIP IF FAC JS LESS THAN 8 
ESHIFTB /SHIFT GB REG RIGHT USING SRIFY COUNT 
CSHIFTO /SHIFT O REG LEFT USING SHIFT COUNT 
COEz /SKIP TF Q REG 2 @ 
CSTRA ASTORE IN ALSW AND EXTEND SIGN TO AMSW 
ESTRB /STORE JN BLSW AND EXYENT SIGN TO 8MSW 
EMEM{NS /SKIP IF ANSWER DOBS NOT GO TO MEMORY 
CTRSKP /TYPE TEXT IF TRACING PROGRAM (SRO5 = 2) 


cele es a a, i ea ede 


Cg a aa ED PN I ee 





sh 


ia 


"O24 
7222 
7223 


7024 
2225 
7626 


9027 
7832 
C234 


C232 
2233 
2234 


2262 
263 


2835 
4036 
2337 


A836 


2822 
2908 
7462 
4002 


ERROR 


/ REGISTER DEFINITIONS 


AMSwe 
*LSwe 
NEXT 


AMSWs 
ALSws 
AEXTs 


RBMSWe 
8.Swe 
BEXTs 


MQOMSWe 
MQLSWa 
MOEXT®e 


YMSWs 
TLSWs 


ACEXPs 
ACMSwa 
ACLSwes 


FACFRE 


REGS: 
ERRORS 
HAL Ts 
LOEXTs 


HALT 


QOREG 
OREG+) 
NREGe2 


AREG 
AREGe4 
AREG#e2 


RREG 
BREGs4 
BREG#2 


MQREG 
MQREG#4 
MQREG#2 


TREG 
TREGe) 


PFAC 
PFACeds 
PPAC#2 


PFAC#)L 


OREGa#j 
2008 
7482 
4028 








Sa? z FRROR HALT OLALL2 VO23 6a APRa72 13437 PAGE 6 


7222 #2 


/TEMPQRARY LOCATIONS 


C272 2292 MT4, 2 
2221 2206 MT2, @ 
2272 208g SAVOM, 2 
2223 2090 SAVOL, @ 
2084 7080 MOFLAG, 2 
C275 202¢ EMEM, 2 
2276 2220 MMEM, 2 
2207 2820 LMEM, 2 
2222 #22 
2028 5724! JMP BEGIN /FOR USE BY START 28 SWITCH ON PDPei2 


Swe 


"O24 
"O22 
4223 


ag24 
8225 
1926 


0027 
AB32 
2231 


2232 
033 
2234 


AB35 
A036 
2837 
2042 


2041 
2042 
8243 


0g44 
045 
1846 


AQABA 
7Q82 
0282 


MOBS 
2000 
S222 


2220 
SAD 
BOAR 


ABB 
DOOD 
2080 


A982 
GO80 
2220 
BOGQ 


BO22 
2882 
S880 


BBP 
O820 
0289 


ERROR WALT 


OREG, 


AREG, 


RBREG, 


MQREGs 


PFAC, 


PFPC, 


OPADR, 


ili, 


OTALL2 VO2Z3 6aAPRa72 {3137 


/JSIMULATED HARDWARE REGISTERS 


"4 
2 


Aaa ARAN 


& 


aaa R2aase wa 


wa a 


/O REGISTER 


/A REGISTER 


/B REGISTER 


/MQ REGISTER 


/FPP ACCUMULATOR 


/FPP PROGRAM COUNTER 


/OP ADDRESS 
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/ 


SW2 
0047 
2052 
O951 
2252 
2258 
3254 
2255 
C256 
2057 
2040 
064 
[262 
2068 
2064 


2965 
2266 


2 

FOAL 
&322 
COAD 
ADDL 
2020 
2020 
2GO2 
2UOe 
C200 
AG8O 
GARD 
A022 
2200 
2928 


C820 
2B8Q 


ERROR HALT 
PAPT, Ma 
Ms 
PIR, g 
COMREG, 2 
PSTAT, 2 
PBASE, 8 
M4 
Ms 
PXP, X@ 
g 
8 
TREG, 4 
A 
4] 
XZADR, @ 
g 


OlaLi2 V223 


6eAPRe72 43137 PAGE 8 


/ADORS 


/FPP INSTRUCTION REGISTER 


/FPP COMMAND REGISTER 


/FPP STATUS REGISTER 


/BASE RESISTER (°2 ANDRESS) 


/PROGRAM [INDEX PCINTER 


/TEMPORARY REGISTER 


/FPP INDEX POINTER 


SW 


267 
2378 
CO7L 
7272 


0273 
0274 
8275 


2276 
2277 


2182 
2181 
#492 


A443 
0184 


2125 
126 
0107 
2110 
Crit 
@1it2 
A143 
7114 
A115 
@116 
0147 
2129 
Gi1224 


x 
£ 


ADB 
"O30 
822 
COLE 


2290 
"228 
3882 


2022 
2082 


e220 
2827 
2222 


2082 
S282 


A820 
2200 
Reid 
2000 
2208 
SIO 
2280 
C28 
2280 
AG88 
CQAR 
2882 
2080 


FRROR HALT 


SRFL AG, 
SHFCNT, 
SHREG, 
EX}TSW, 


FLAG, 
FLAG2, 
PLAGS, 


CARYIN, 
CARQUT, 


De7, 


Ti, 
Ta, 


CSTATE, 
STEPSW, 
AAPT, 
EXWO, 
OVFL, 
IGNFLs 
EXADOR, 
ENTSTP, 
EXSTP, 
MONT, 
CKO; 
CKOP, 
SAVOP, 


/JFLIP FLOPS e& TEMPORARY 


WAAAY 


QA wAQ a Qeyaeariaara sa m@ Q nv og a QA 


a 


ba APRa72 13437 Pace 9 


LOCATIONS # CONSTANTS 


/SPECTAL SHIFT FLAG 
/SPECTAL SHIFT COUNT 
/FPP SHIFT COUNTER 
/EXIT SWITCH 


/GENERAL PURPOSE FLIP FLOPS 


/ADDER CARRIES 


/QOUBLE PRECISION 27 


/TEMPQRARY STORAGE 


/PROGRAM SPATE GENERATOR 
/PROGRAM SINGLE STATE SWITCH 
/ADDRESS OF THE AP? 


/OVERFLOW 
/JGNORE UNBERFLOW FLIP FLOP 
EXIT ADDRESS ¢,EX COMMAND) 


JENTER STEP ADDRESS (,8A COMMAND) 
JEXYT STEP ADORESS (,RA COMMAND) 


/CHECK QO REGISTER SWITCH 
/CHECK OP ADDRESS SWITCH 

















c2re 
"274 
1 2F2 
2223 
2224 
2225 
226 
f297 


2210 
2241 
2242 
2243 
2244 
2215 
2216 
2217 


2220 
2221 
R222 
#223 
2224 
8225 
8226 
2227 


"hal 


4232 


4278 
AQEQ 
27822 
2222 
7022 
AZAD 
PO8O 
2088 


2000 
2880 
D080 
S820 
S022 
2889 
2998 
2989 


C220 
8020 
0802 
2002 
2080 
29A9 
2882 
8990 


ERROR HALT 


XO, 
Xi, 
XZ, 
XS, 
x4, 
x5, 
X6, 
X74 


APT, 


PXB, 
PX4, 
PX2, 
PX3, 
PX4, 
PX5, 
PX6, 
PX7, 


PAGE 


Seg ananra nt QaA Mma] A ‘a 


ARAB eAae a 
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/PROGRAM INDEX REGISTERS 


/APT USED WHEN NO ADORESS 
/IS GIVEN WITH ,RT OR “RF COMMANDS 


/INDEX REGISTERS USED WITH ABOVE APT 


om 


papenr naan teiastnt. 


C232 
eon 
r232 
e233 
A234 
2235 
2236 
2237 
2242 
224) 
2242 
5243 
244 
8245 
£246 
2247 


8256 
B251 
252 
283 
2254 
2255 
2256 
8237 


2262 


7322 
1777 
2347 
3776! 
76234 
71426 
7712 
5775! 
4774) 
2354 
20 AQ 
3776? 
4773) 
4772! 
4261 
5246 


9254 
7382 
1259 
335g 
6232 
4772! 
4261 
5652 


5664 


ERROR WALT 


START, 


BEGIN, 
NOTEX, 


KEYCK, 


EXTTwO, 


CLA CGE 
TAD 

ICA 

NCA 

LAS 

CLL RTL 
SPA CLA 
JMP 

JMS 

EOP 

a 

DCA 

JMS 

JMS 

JMS 

JMP 


1a4 

CLA CLL 
TAO 

DCA 

KCC 

JMS 

JMS 

JMP { 


JMP f 


OLALL@ Veas 


APTSAV 
OcTwo 
FPPRUN 


STFPP+2 
TYP 


FPPRUN 
TITLE 
ASTER 
WORD 
se 


KEYCK 
RETURN 


ASTER 
WORD 
KEYCK 


WORD 


an. 
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/GET LAST APT ADTRESS 
/STORE FOR RERUN 
/CLEAR FPP RUN FF 
/GET SWITCH REGISTER 


/SRZ2 3 1 ? 
AYES @ RESTART PROGRAM 
/TYPE END PRACE 


/CLEAR PROGRAM RUN FF 

/TYPE PROGRAM TITLE 

/TYPE AN ASTERISK (#) 

/ALLOW INPUT FROM fFTY 

/PROGRAM SHOULD NO RETURN HERE 


/GET TTY INPUT BETWEEN TIME STATES 
/AND AFTER ERROR TYPEOUT 

/GEY RETURN ADBRESS 

/SAVE FOR BX!tT To PRACE 


/TYPE AN ASTERISK 0) 
JALLOW TTY INPUT 
/RETURN TO TRAGE 


/JLINK WITH THIS MEMORY PAGE 








A261 
0262 
2268 
B264 
#265 
4266 
2267 
2272 
C27.a 
2272 
2273 
2274 
2275 
9276 
0277 
03282 
C304 
B32 
8323 
0384 
@3a5 
8386 
8397 
8310 
O314 
23412 
2313 
8314 
8315 
8316 
O347 
S322 


gag 
7302 
3347 
3346 
6234 
5265 
6836 
3345 
4345 
6046 
6044 
5273 
6042 
1371 
7452 
5779! 
1367 
7459 
5661 
1366 
7452 
57465! 
4364 
7452 
5763! 
1362 
7652 
5759 
1345 
14364 
7748 
5760! 


FRROR WALT 


WORD, 


READ, 


OlAL{2 VO2z3 6eAPRa72 43137 PaGE 12 


/JRECEIVE INPUT FROM TTY, ONE WORD AT A TIME, 
JA CARRIAGE RETURN OR SPACE WILL EXIT BACK TP 
THE CALLING ROUTINE, 

JALT MOQDE DOES A SPECIAL EXIT 


2 

CLA ChL - 
NCA OCTWD JCLEAR LINKING WORDSS 
OCA ASCWD 

KSF /WALT FOR TY 

JMP »wt 

KRS /GET CHARACTER FROM TTY 
DCA ASCCH ASAVE CHARACTER 

TAO ASCECH /ECHO CHARACTER 

LS 

YSF _ 

JMP 1et 

CF 

TAD (0215 /JGHECK FOR SPECIAL CHARACTERS 
SNA /RETURN 9 

JMP RET 

TAO (23 SPACE ? 

SNA 

JMP ! WORD 

TAD (o{6 /PERIOD ? 

SNA 

JMP o0T 

TAD (of 24 /RUBOUT ? 

SNA 

JMP RUBOUT 

TAD (2 /ALY MODE ? 

SNA CLA 

JMP { RETURN /RETURN TO SEMULATION 
TAO ASCCH /GET ASCII] CHARACTER 
TAD (9249 

SPA CLA ACNTRL KEY 2? ~ = 2 ee 
JMP TREX! T /YES © EXIT TQ MONITOR 


A3Z1 
C322 
2328 
0324 
2325 
2326 
2527 
2332 
2334 
2332 
B333 
2334 
2335 
2336 
4337 
A349 
7341 
2342 
2343 
2344 


2345 
0346 
0347 
2352 
C334 


2355 
4356 
6357 
2360 
2361 
2342 
8368 
0364 
0365 
3366 
1367 
7379 
A371 
7372 
7378 
0374 
A375 
47376 
Os77 


1345 
7357 
3345 
1346 
9357 
71426 
7026 
7026 
1345 
3346 
1545 
2556 
3545 
13547 
355 
7424 
7006 
1345 
3547 
5265 


2288 
2092 
C288 
1028 
e828 


0777 
$887 
9077 
3785 
7540 
2082 
1220 
76537 
A4is 
7762 
7755 
7424 
7583 
7261 
7266 
7313 
1828 
1845 
1244 
0402 


ERROR HALT 


ASCCH, 
ASCWD,s 
OCTWO, 
RETURN, 
STSAVE, 


TAD 
AND 
ACA 
TAD 
ANO 
RTL 
RTL 
RTL 
TAD 
DCA 
TAD 
AND 
OCA 
TAD 
AND 
RAL 
RTL 
TAD 
DCA 
JMP 


CLL 


CuL 


a 
g 
8 
STPPPe2 
2B 


PAGE 


DIALI2 


ASCCH 
(77 
ASCCH 
ASCWD 
(77 


ASCCH 
ASCWD 
ASCCH 


ASCCH 
OCTWD 
(797 


ASCCH 
OCTWD 
READ 


V223 
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/GET CHAR ASTER 

/STRIP 79 6 BITS 

/SAVE 6 SIF ASCIL CHARACTER 
AGET ASCI] WORD 

/SAVE LAST CHARACTER 

/MOVE TO LEFY HALF OF WORD 


/YNSERT NEW CHARACTER 
/ASAVE PACKED ASCII WORD 
/GET ASCII CHARACTER 
ZEXTRACT OCTAL DIGIT 
/SAVE OCTAL OIGIT 

/GET OCTAL WORD 

/JSAVE LAST 3 DIG{TS 
“MOVE 4 DIGIT LEFT 


/INSERT NEW DIGIT 


/SAVE OCTAL WORD 
/GET NEXY CHARACTER 


ASPECIAL RETURN ADDRESS 











-_ 


, 


beet 39Vd 


cout} 


CL*udyed 


£22A 


BtIVIG 


Live eCay3 


Swe 


7490 
0424 
24ahe2 
2403 


PaAd 
e405 
C4H6 
A407 
0419 
M4i4 
2412 


2413 


24144 
0415 
3416 
0417 
2420 
0424 
0422 
2423 
2424 
8425 
4426 
2427 
2439 
74341 


4432 
2433 
2434 
2435 


C2 


47773 Shy 
1776! 
3114 
5775! 


1374 RET, 
5246 
6241 
5226 
6242 
7228 
5773! 


47774 Nor, 


4372 DOTCK, 
3240 
1374 
3041 
1441 
3123 
44142 
7439 
5232 
7044 
1770! 
7640 
5220 
5503 


4767! OQTERR, 
2736 
e200 
5766! 


FRROR WALT DIAL12 VO23 


/SET ENTER SINGLE STATE 


JMS WORD 
7a OCTWOD 
OCA ENTSTP 
JMP DOTEX 
TAO (242 
TLS 

TSF 

JMP wt 
rCr 

CLA 

JMP EXITWO 
JMS WORD 


6eAP8e72 {3i37 PaGE 14 


ADDRESS 

/ALLOW TYY INPUT 

/GET ADDRESS 
ASET ENTER ASDRESS LOCATION 
/EX IT 


/JUNPUT FROM TTY WAS A CARRAIGE 
/RETURN, YPE A LINE FEED 


ZEXTT WORD ROUTINE 
/SET TTY RETURN FOR COMMAND 


/BRANCH TO COMMAND ROUTINE 


TAD (BRANCH 
11 

TAO (ONTRLS@4 
OCA 14 

TAD } 11 

DCA Ti 

TAD } 16 

SNA 

JMP DOTERR 
CIA | 

TAD ASCWD 
szA CLA 

JMP ,*12 
JMP } Td 


/COMMAND INPUT ERROR 


JMS TYP 

QMK 

a 

JMP BEGINeS 


/ADDRESS OF CHARACTER TABLE 
/ADORESS OF ROUTINE TABLE 


/GET ROUTINE ADDRESS 

/SAVE ADDRESS 

/GET CHARACTER SET 

7END OF CHARACTER ABLE ? 
/YES » INPUT ERROR 

NO ; 

/COMPARE WITH TTY ASCIY INPUT 
/COMPARE ? 

/NO = TRY AGAIN 

/YES » GO 70 ROUTINE 


/TYPE 27 


/TYPE ® ANQ RESTART 











Sw? 


7426 
F4ry 
7442 
2441 
2442 
2443 
2446 
7445 
2446 
2447 
2452 
9454 


e452 
8453 
2454 
2455 


8456 
84387 
7462 
8461 
462 
24683 
2464 
8465 


2466 
2467 
0472 
C474 
2472 
C473 
2474 
2475 


4556 
7242 
7622 
5246 
6554 
6561 
6557 
5243 
6552 
7320 
4765! 
57751 


47778 
14776! 
$113 

5775! 


1364 
3Oit 
4777! 
1776! 
62ii 
3441 
6291 
5260 


1776! 
8363 
1362 
3193 
4777! 
1776! 
3523 
5761! 


ERROR WALT 


EX, 


EAs 


LOOP, 


LOOX, 


FPRST 
RAR 


SNL CLA 


JMP 
FPWLT 


FMAINY 


FPIST 
JMP 
FPICL 


CLA Che 


JMS 
JMP 


DIAL1O V#IS 


145 


172 


SETRET 
OOTEX 


ASET EXIT ADDRESS 


JMS 
TAD 
DCA 
JMP 


WORD 
OCTWO 
EXADDR 
DOTEX 


/L0A0 OPERAND TABLE 
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/GET FPP SYaTUS 


“YS FPP RUNNING ? 

/NO 

/CPY FORCE EXIT 
ZADVANCE TEMEING UNTILL 


/EXIT TS COMPLETED 
/CLEAR FPPei2 


SETUP RETURN 
JEXJT ROUTINE 


AALLOW TTY INPUT 

/GET ADDRESS 

ZSAVE IN COMPARE WORD 
/EXIT ROUTINE 


/GET TABLE ADDRESS 


PALLOW TTY INPUT 
/GET OCTAL WORD _ 
/STORE IN FIELD i 


/RESTORE DATA FIELO 
/GET NEXT WORD 


/LOAD INDEX REGISTER (ENTERED FROM ,AS ROUTINE) 


YAO (OPERND=4 
DCA a3 
JMS WORD 
TAD ocTwe 
cCOF 18 
DCA ! 44 
cOF Ag 
JMP 75 
TAO OCTWO 
AND (? 
Tad (PX2 
OCA Ti 
JMS WORD 
TAO OCTWD 
DCA } use 
JMP ASe4 


/GEY OCTAL WORD 

JEXTRACT INDEX REGISTER 
7ADD ADDRESS OF INBEX REG B 
/SAVE INDEX ADORESS 

/ALLOW TTY INPUT 

/GET OCTAL ARGUMEN? 

/SET INDEX REGISTER 

/GO BACK To AS ROUTINE 


1c in innate ca sea he si 


SW 


2476 
7477 
2540 
574 


25%2 
25238 
2504 
2505 


C526 
597 


25410 
a541 
0542 
0543 
0544 
0545 
1546 
0547 
A529 
2524 
2522 
2523 
0524 
0525 
2526 
2527 
0539 
0534 
2532 
2533 
B534 
1535 
1536 
2537 
Y 542 


A 


4777! 
1776! 
3252 

5775! 


4777! 
1776! 
$145 

5775! 


4769! 
5757) 


4760! 
1252 
6553 
7222 
1127 
6555 
7482 
1356 
34123 
3104 
1341 
7040 
3344 
1344 
6031 
7440 
4755! 
6557 
7442 
5754) 
2404 
5326 
2403 
5326 
5347 


ERROR WALT 


cM, 


RA, 


RT, 


RF, 


RFA, 


RFB, 


OLAL4L2 


Fs 
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/SET THE COMMAND REGISTER 


JMS 
TAD 
OCA 
JMP 


/SET RESET SINGLE STATE 


JMS 
TAD 
OCA 
JMP 


/RUN TRACE MOOE 


JMS 
JMP 


WORD 
OCTWD 
COMREG 
DOTEX 


WORD 

OCTWD 
EXSTP 
DOTEX 


STFPP 
INET 


ZRUN FAST MODE 


JMS 
TAD 
FPCOM 
CLA 
TAD 
FPST 
HLT 
TAD 
DCA 
DCA 
TAD 
CMA 
DCA 
TAD 
KSF 
SKP 
JMS 
FPIST 
SKP 
JMP 
1S2 
JMP 
1S2 
wMP 
JMP 


STFPP 
COMREG 


AAPT 


ALLOW TTY INPUT 

/GET OCTAL WORD 

/SET COMMAND REGISTER 
/EXIT 


ADDRESS 


AALLOW TTY INPUT 

/GEY OCTAL WORD 

SET EXIT GOMPARE WORD 
SEX]? 


/SETUP TO STAR? FPP 
ASTARYT TRACE AND FPP IN INJATE 


/SETUP TO START FPP 
/GET COMMAND REGISTER 
/SET FPPei2 COMMANDS REGISTER 


/GET ADDRESS OF APT 
/FPPai2 START ERROR 


/GET TIME CONSTANT 
/SEY TIMER 


/GET CONTENTS OF BIT PATTERN 
/COMPLIMENT 

/RESTORE 

/LOAD BIT PATTERN — 

/CHECK KEYBOARD FLAG 


/GEY TTY INPUT 

/1S FPPei2 FINISHED 7 

/NO 

/YES = EXIT 

/TIMEOUT BEFORE COMPLIMENTING AC 

7AC FLASHES ON AND OFF WHILE WAITING 








Sw 
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“2 


4541 %O2E ACSIT, 2 


2542 3126 Cle OCA STEPSW /CLEAR STEP SWITCH 
2543 5775! JMP OOTEX EX YT 


0554 7230 
A555 2259 
2556 7768 
2557 1964 
2560 1816 
0561 0604 
0562 2220 
2563 2007 
0564 4977 
0565 7254 
2546 0244 
0567 7313 
0570 9346 
0571 7237 
0572 1046 
2573 8269 
0574 B22 
8575 8245 
2576 0347 
2577 8264 
0609 PAGE 


a » 
: dat 
SP 


{ 


7622 
76871 
76R2 
F623 
F6A4 
C6a5 
76M%6 
“6A7 
2610 
C611 
2642 
26138 
0644 
2615 
7616 
2647 
2628 
26214 
2622 
2628 
2624 
%625 
2626 
2627 
2632 
2634 
2632 
2633 
2634 
8635 
0636 
2637 
27640 
2641 
4642 
2643 
0644 
0645 
2646 
4647 


1377 
3262 
1376 
3233 
4775! 
4374 
7642 
5216 
4773! 
3662 
2646 
4772) 
2646 
oo20 
4774/ 
1779! 
3367 
1367 
7459 
5250 
1366 
7459 
5765! 
1364 
7639 
5273 
4763! 
6241 
3662 
6204 
2262 
5204 
1233 
1362 
0364 
7459 
576g! 
1357 
3233 
5204 


FRROR WALT 


ASGET, 


ASFLDs 


DIALL 


SeAPRe72 {3437 Pace 18 


/ASSEMBLE AN FPPel2 PROGRAM 


TAS 
SCA 
rad 
DCA 
vad 
YA 


SZA CLA 


JMP 
JMS 
ASPNTR 
ASADOR 
JMS 
ASADOR 
3 

JMS 
TAD 
ANDO 
TAO 
SNA 
JMP 
TAD 
SNA 
JMP 
TAO 


SNA CLA 


JMP 
Fao 
cor 
OCA I 
cOF 
1Sz 
JMP 
FAD 
TAD 
AND 
SNA 
JMP eo 
TAD 
DCA 
JMP 


(TEST 
ASPNTR 


(COF 12 


ASFLD 
ASCCH 
(#215 


ASGET 
ASE 


TYPNCR 


WORD 
ASCWD 
(7728 
(98128 


LDAC 
(92700 


LOOX 
(92282 


ASLOE 
OCTWO 
12 
ASPNTR 
al) 
ASPNTR 
ASw#4 
ASFLDO 
(18 
(78 


DOTERR 
(COF 
ASFLD 
AS#4 


/GET BUFFER ADORESS 
/SET POINTER 
/ASSEMBLE YN FIELO Q 


/GET ASCI] CHARACTER 

/SUBTRACY RETURN 

JWAS JNPUT TERMINATES BY & RETURN 
JNO = GET NEXT WORE 

/CONVERT ADDRESS TO ASEL! 


/TYPE ADSRESS 


ZALLOW YTY INPUT 

/GET ASCI] WORD 
/EXTRACT LEFT CHARACTER 
/SUBTRACT "A" 

/INPUT & A@ ? 

AYES » LOAS Fac IN APT 
SUBTRACT "x" 

/INPUT = X ? 

/YES e@ SET INDEX REGISTER 
/SUBTRACE «@ 

/NEW LOCATION ? 

AYES = SET LOCATION COUNTER 
/NO © INPUT IS BATA 
/CHANGE DATA FYELO 

/STORE DATA 

/RESTORE OATA FIELO 
/UINCREMENT POINTER 
/POINTER JS OK a 
/POINTER OVERFLOWES FIELO 
/INCREMENT FIELD POINTER 
/EXTRACT FYELD BfTS 
/OVERFLOW FO FIELD 2 ? 
AYES # ERROR 

/QK » MAKE COF INSTRUCTION 
/MODIFY PROGRAM 

/YES » TYPE POINTER 











Sw2 


7658 
2654 
1652 
2653 
7654 
2655 
2656 
657 
2662 
2664 


2662 


2663 
2664 
2665 
2666 
2667 
26798 
8671 
2672 


C2 


1356 
2011 
1355 
3423. 
47745 
1763! 
3441 
2123 
5254 
5204 


2828 


4771! 
4770! 
7640 


7240 


30467 
1743! 
3o70 

5754! 


FRRIR WALT 


ASPNTR, 


SH, 


DIALia VaI3 
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7.009 FAC IN APT (ENTERES FROM AS COMMAND) 


TAD 
OCA 
TAD 
DCA 
JMS 
TAD 
DCA 
1$z 
JMP 
wJMP 


2 


/SET SPECIAL SHIFT 


JMS 
YAO 
SZA 
STA 
OCA 
FAd 
DCA 
JMP 


CLA 


(APT#4 


WORD 
ASCWD 


SHFLAG 
ocfwo 
SHFCNT 
ooftex 


/ADDRESS OF FAC 
AWORD COUNT 


/ALLOW TTY INPUT 
/GET OCTAL WORD 
/STORE IN AC 


/GET NEXT WORD 
/GO BACK TO AS ROUPINE 


/ALLOW INPUT FROM fTY 

/GET ASCI} WORD . 
/WERE ANY @HARACTERS INPUT ? 
“YES w» AC 8 7797 

/SET OR RESET SHIFT FLAG 
/GEY OCTAL INPUT | 

ASET SPECIAL SHIFT COUNT 
/EXIT 


Sw? 


7673 
72674 
7675 
2676 
2677 
2792 
C784 
27282 
C743 
2754 


2795 
2726 


2733 
2754 
¢755 
2756 
2757 
2762 
764 
3762 
8763 
2764 
2765 
2766 
0767 
e772 
W771 
8772 
8773 
2774 
0775 
0776 
D777 


1763! 
235% 
7494 
7026 
1357 
3233 
4774! 
1763! 
3262 
5204 


2208 
2280 


C007 
0245 
7775 
b214 
6201 
B432 
OB72 
b0410 
347 
5602 
0466 
5100 
7780 
0346 
2264 
7335 
7346 
7563 
0345 
6241 
4200 
1029 


CRROO WALT 


/CHANGE 


TAD 
AN? 
CLL 
RTL 
TAD 
OCA 
JMS 
TAD 
SCA 
JMP 


i © 


A 


2] 
ry 
- 


be 


MFLO, 2 
SAVMEM, 2 


PAGE 


RAL 


Mii. 
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ASSEMBLY LOCATOR 


OC TWO /GET FIELD DESIGNATOR 

(7 /EXTRACT LAST DISIT 
/MOVE TO BITS 6-8 

(COF /CREATE COP INSTRUCTION 

ASFLD /CHANCE AS ROUTINE 

WORD JALLOW TTY INPUT 

OCTWD /GET NEW ABDRESS 

ASPNTR /SET POINTER 

ASe4 /RETURN TQ AS ROUTINE 


/FWESE 2 CONSTANTS ARE YSEO BY 
/ANOTHER ROUTINE ¢ CMEM1 } 











Swf 


L27?S 
1071 
1g%2 
1993 
1294 
1905 
1086 
1287 
1g12 
1041 
1012 
1043 
1014 
1945 


SS 


4377 
3012 
1442 
7450 
5776! 
6046 
6041 
5206 
7228 
5202 
9334 
0240 
240 
G02 


ERROR WALT 


Que IT, 


RUTXT, 


Tad 
oC A 
TAD 
SNA 
JMP 
rTLS 
TSF 
JMP 
CLA 
JMP 
334 
248 
242 


OYAL12 


CRUTXT ed 
12 
12 


WORD#4 


eet 
1*7 


V2E3 
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AIF RUBOUT waS INPUT 
JECROC / AND DELETE 
/JDATA WORDS IN WORT FOUTINE 





TCT Ca 


nla me 


Sw 


1016 
1317 
Lg2d 
1g2i 
1822 
14328 
1224 
1225 
1226 
1327 
1230 
1231 
132 
1238 
1234 
1235 
1036 
1237 
1242 
1244 
1842 
12458 


1344 
1345 


1046 
1047 
1332 
1054 
1852 
1253 
12354 
1935 
12956 
1057 
1060 
1061 
1362 
12638 


9547 
47758 
1374 
3773! 
1372 
3774! 
1372 
2767) 
1366 
3765! 
3764! 
1763! 
7452 
1365 
£127 
3126 
11297 
3244 
7242 
3245 
3053 
5616 


2090 
2028 


2200 
2901 
2284 
2128 
2224 
2206 
2431 
@345 
0332 
1720 
2512 
A314 
A594 
(B20 


ERROR WALT 


STF PP, 


APTSAV, 
FPPRUN, 


BRANCH, 


DIAL12 


aim, 
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/SETUP Te START THE FPP 


Sel 
JMS 
FAD 
ec 
ya 
OCA 
Tad 
DCA 
TAO 
DCA 
OCA 
TAD 
SNA 
TAO 
DCA 
OCA 
TAD 
OCA 
STA 
OCA 
DCA 
JMP f 


g 
g 


2584 
2204 
44123 
2224 
2206 
2431 
8345 
2538 
1720 
2542 
2344 
A524 
2080 


WORD 
(TEST 
APT +4 
(PX 
AP T+¢2 
(OPERND 
APT +3 
(3404 
APT 
APT +4 
OCTWO 


(APT 
AAPT 
STEPSW 
AAPT 
APYSAV 


FPPRUN 
PSTAT 
STFPP 


‘SA 
/Ri 
/AS 
/RY 
/RP 
/TY 
CM 
/EX 
/OP 
/SH 
/CL 
/EA 


/JENTERED WITH A JMS 
/ALLOW TTY INPUT 


/GET ADDRESS OF FPP INSTRUCTIONS 


/SET FPC IN PROGRAM APT 
/GET INDEX POINTER 
/SET INDEX POINTER IN APT 


/GEY ADDRESS OF APERANS TABLE 


/SET BASE ADDRESS {N APT 
/GET FIELO BfTS 

SET APT FIELD BITS 
/CLEAR OP ADDRESS [{N APT 
/GET TTY INPUT 

/3S IT 8908 ? 


/YES e GET ADDR OF PROGRAM APT 


/SET APT ADDRESS | 
/CLEAR SINGLE STATE SWITCH 


/SAVE APT ADDRESS” 
7SET PROGRAM RUN FF 


/CLEAR STATUS WORD 
/EXIT 


LOAD START STEP ADDRESS 
LOAD RESET STEP ADRESS 
ASSEMBLE 

RUN TRACE MODE 

RUN FAST MODE 

TYPE CONTENTS OF REGISTER 
LOAD COMMAND REGISTER 

FPP EXIT 

LOAD §-OPERAND TABLE 

SET SHIFT COUNT AND FLAG 
CLEAR STEP SWITCH 

SET EXIT ADDRESS 


PAGE 22 














Swi 


| 


4574 
4762! 
7640 
5273 
13541 
4769! 
AB9Q 
11497 
325g 
4564 
6561 
7220 
1252 
6553 
8357 
3047 
1107 


6555 
7619 
5543 
4756! 
1644 
4755! 
45462 
3924 
1024 
2357 
3044 
4024 
7012 
7842 
9357 
3965 
1924 
7012 
7012 
7012 
0357 
2Q54 
4556 
4575 
3447 
3120 


FRROR WALT OLaALig Vers 
/ FPP FLOWS 
INIT, CLEAR 
JMS MSTATE 
SKP CLA 
JMP #4 
TAD CIN] Ted 
JMS ERR 
ERROR 02806 
yaad AAPT 
DCA PAPTe4 
ENTER 
ENINTY, FMAINT 
CLA 
TAD COMREG 
FPCOM 
AND (7 
DCA PAPT 
TAD AAPT 
INI TO, FPST 
SKP CLA 
JMP 1 +4 
JMS TYP 
STRTER : 
JMS KEYCK 
GETAPT 
OCA AMSW 
TAD AMSW 
ANO (7 
OCA PFPC 
TAD AMSW 
RTR 
RAR 
ANO (7 
OCA XZAOR 
TAD AMSW 
RTR 
RTR 
RTR 
ANO (7 
DCA PBASE 
INCAPT 
CAPT 
OCA CKO 
OCA CKOP 
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/CLEAR FPP AND PROGRAM REGISTERS 
/CHECK STATES 

/TIME STATE ERROR 

/TIME STATE GENERATER fS OK 

/GET PC FOR ERROR TYPEOUT 


/ STATE ERROR CODE 

/GET ADDRESS OF APT 

/SET APY COMPARE ADDRESS 
/YYPE ENTER INITIATE 
SEY FPP MAINT MODE 


/GET FPP COMMAND WORD 
/SET FPP GOMMAND REG 


/GET ADDRESS OF AP? 


/START FPP 
/FPP OO NOT START 


/FPP START ERROR 
/TYPE ERROR MESSAGE 
/WALT FOR KEYBOARD INPUT 
/OUTBRK USING ADRS 

/MB TO AMSW 

ZAND FIELO BITS 


AFIELD BITS OF FPC 
/YES@GE? FYELD BITS 


/FIELO BITS OF INDEX POINTER 
/GET FIELO BrTs 


/FIELO BITS OF Pe ADDR 
/INCREMENT ADRS 

/CHECK APT 

JCLEAR CHECK O FLAG | 
ACLEAR CHECK OP ADOR FLAG 





\ 
\ 
im 


/ PP FLOWS 


4568 
4362 
$¢25 
£544 
“824 
4556 
46575 
4543 
OB241 
1245 
3242 
5754! 


1220 
2252 
7343 
2007 
7347 
1065 
6020 
8347 
B2d4 
212 
104 
2243 
4129 
M212 
8220 
edi 
4920 
D264 
4262 
10i4 
120% 


V225 


eS Er 
CE TAPT 
OCA 
LOADO 
AREG 
INCAPT 
CAPT 
LOADOP 
CREG 
TADS 
OCA 
JMP 


PAGE 


6" APRe72 


AL SW 


OPADR+1 
PFPC#1 
IN}T2 


43857 PAGE 24 


/STEP TO STATE 4 
/OUTBRK USEING ADRS 
7MB TO ALSW 

7A yO 0 


/INC ADRS 

/CHECK APT ADDRESS 
7/0 TO OP ADDR 

JOP ADDR TO FPC 


GO TO STATE 2 











/ FpRe FLOWS 


1279 
1274 
se%e2 
1273 
1234 


1225 
1276 
1227 
1212 
i2t1 
1242 


1213 
1244 
1215 
1216 
1217 


1228 
1221 
1222 
1225 
1224 


4225 
1226 
1227 
1230 
1231 
1232 
1235 


1234 
1235 


4553 
4562 
3266 
4556 
4575 


4563 
4562 
3255 
4556 
4556 
4575 


4563 
4562 
3835 
4556 
4575 


4563 
4362 
3924 
4556 
4575 


4563 
4562 
$025 
4544 
0024 
4347 
@821 


4544 
5236 


DIAL 12 


INIT2, 


INITS, 


INIT4, 


{NITS, 


INE Téa 


INEND, 


VIIS 


FSTEP 
CETAPT 
DCA 
INCAPT 
CAPT 


FSTEP 
CETAPT 
DCA 
INCAPT 
INCAPT 
CAPT 


FSTEP 
GETAPT 
OCGA 
INCAPT 
CAPT 


FSTEP 
CETAPT 
OCA 
INCAPT 
CAPT 


FSTEP 
GETAPT 
DCA 
LOQADO 
AREG 
LOADAC 
OREG 


MOVEX 
JMP 


6eAPRal2 


XZADR+4% 


PBASE +! 


ACEXP 


AMSW 


ALSW 


FETCH 


43837 PAGE 25 


/STEP TO STATE 2 
/OUTSRK USING ADRS 
/MB TO X@ ADOR 
7INC ADRS 

/CHECK APY ADDRESS 


/STEP TO STATE 3 
/OUTSRK USING ADRS 
/MB TO P@ ADDR 
ZINC ADRS 

ZINC ADRS 

/CHECK APT ADDRESS 


ASTEP TQ STATE 4 
/JOUTBRK USING ADRS 
SAVE FAC EXPONENT 
/ING ADRS 

ACHECK aPT 


ASTEP TO STATE 5 
/QUTBRK USING ADRS 
/MB TQ AMSW 

INC ADRS 

/CHECK APT ADDRESS 


STEP TO STATE 6 
/QUTBRK USING ADRS 
“MB TO ALSW 

fA 70 0 


40 TO FAC FRACTION 


/SET PROGRAM INDEX REGISTERS 
/RETURN TO CONTROL PROGRAM 


o 


\ 


/ FRPP FLAWS 


~eo0 
1237 
1243 
1241 
1242 
1243 
1244 
1245 
1246 
1247 


1252 
1254 
1252 
1253 
1254 
1255 
1256 
1257 
1252 
1261 
1262 
1265 
1264 
1265 
1266 
1267 
12708 
1271 
1272 
4273 
1274 
1275 
1276 
1277 


1332 
L301 
1382 
1348 
13174 
1325 
135%6 
1327 
1312 
1311 
1312 
15138 
1314 
1315 
13516 
1517 


4544 
4573 
6572 
1341 
2377 
3044 
6567 
3074 
3076 
3024 


4363 


4571 


3232 
3933 
3034 
4569 
3954 
4553 
4559 
19g 
1235 
4527 
4577 
1051 
2376 
745g 
5775 
1374 
7640 
5300 
4773! 
7242 
3073 
5772! 


4563 
1954 
7136 
7156 
7290 
1031 
e374 
7432 
A377 
4539 
4546 
1924 
4576 
4546 
1024 
4576 


D1TAL42 


FET OU, 


FECHA, 


FECH1, 


V233 


ENTER 
CLRA 
CL RB 
TAO 
AND 
DCA 
LOW T 
OCA 
DCA 
DCA 


FSTEP 
CLRO 
DCA 
DCA 
OCA 
GETPC 
DCA 
INCPC 
LOADA 
D2? 
TAD 
STORB 
AMBO 
TAD 
AND 
SNA 
JMP 
TAD 


SZA CLA 


JMP 
JMS 
STA 
DCA 
JMP 


FSTEP 
TAD 


CLL RTL 
CLL RTL 


CLA 
TAD 
AND 
SZ, 
AND 
STORA 
LOADB 
AREG 
APBO 
LOADRB 
OREG 
APBO 


Be AaPRe72 


PF PC 
7 
PFPC 
SHREG 


CARYIN 
MDFLAG 


MQMSW 
MQLSW 
MQEXT 


PIR 


ACEXP 
PIR 
(622 


FEND 
(#408 


FECHS 
SETSTS 


FLAGS 
FECHS4 


PIR 


PIR 
(177 


(7 


ama, 


13137 PAGE 26 


/TYPE ENTER FETCH 

JCLEAR A REG 

/CLEAR B REG 

/CLEAR BITS a8 SF FPC 
/BECAUSE THE HARDWARE HAS 
/JONLY 415 BITS 

/ZERO FPP SHIFT REGISTER 
J@ERO PROGRAM SHIFT REGISTER 
/CLEAR CARRY IN FF 

/CLEAR MULT OR DIV FLAG 


/STEP TO FETCH STATE B 


/CLEAR MQ 


/OUTBRK USING FPGA 

ASTORE IN PROGRAM INST REG 
/INCREMENT PROGRAM FPC 
/SET A REG s 23 

/DOVBLE WORD 2? 

/SET B REG # FAC EXPONENT 
STORE LSW AND EXTEND SIGN 
7A MINUS B TO 6 REG 

/GET FPP INSTRUCTION 
ZEXTRACT BITS 3 AND 4 
ASPECTAL INSTRUCTION? 
/YES*END OF FETCH 


/DOUBLE WORD INS? 
/NO@GO TO STATE f 
/SET STATE 3 


/SET FLAGL FOR DOUBLE WORD INST, 


/GET YNSTRUCTION | 
/SAVE BLY PIRS IN THE LENK 


/GEYT JNSTRUCTION 

/GET BITS BSeq1 

/BIY 3 2 1? 

AYES@EXTRACT BITS Gadd 

/FIR 5°44 OR Seif FO ALSW 

/MOVE A T0 6 FOR ADD C¢CA#A TO 0) 


/A PLUS R T0 0 REG 
40 TO 8B 


JA PLUS 8 0 OREG 














/ FPP FLOWS 


L322 
2 Oe. 
1322 
1523 
1324 
1325 
1326 
1527 
1532 
1331 
1332 
1338 
1334 
1335 
1336 


1337 
1342 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1352 
1351 
1352 
1333 
1354 
1355 
1356 
13557 


1365 
1366 
1367 
1372 
1371 
1372 
13738 
1374 
13575 
1376 
1377 


4563 
4552 
AB24 
4546 
2054 
4576 
4543 
2024 
1054 
2370 
7642 
5352 
6556 
7742 
5352 


1251 
2367 
1366 
7452 
5352 
1367 
7459 
5352 
1366 
7649 
5353 
4555 
1054 
8370 
7659 
5775! 
57465! 


1422 
5229 
7222 
2482 
0477 
1406 
6344 
7408 
1533 
6A 
7087 
14422 


OF AL12 


CECH, 


FECH24, 


V28S 


FSTEP 
LOADA 
OREG 
LOADB 
PBASE 
APBOQ 
LOaDOP 
OREG 
TAD 

AND 

SZA CLA 
JMP 
FPRST 
SPA CLA 
JMP 


TAD 

AND 

TAD 

SNA 

JMP 

TAD 

SNA 

JMP 

7Ad 

S24 CLA 
JMP 
INCOP 
TAD 

AND 

SNA CLA 
JMP 

JMP 


PAGE 


6" APRaT2 


PIR 
(480 


FECH24 


FECH24 


PIR 
(7882 
(eSO00 


FECH24 
(1088 


FECH24 
(e322 


12 


P{R 
(490 


FEND 
FECHS 


15837 PASE 27 


/STEP TO STATE 2 
/O TO A 


/PZ ADOR TA 8 


fA PLUS 8 70 0 
4/0 YO OP ASOR 


/GEY INSTRUCTION 
EXTRACT BIT 3 
/BIY $ a 4? 
/ZYESeINC QP ADBR 
/GET FPP STATUS 
/DOUBLE PRECISION? 
/YESeINC OF ADDR 


/GET {NSTRYUCTION 
ZEXTRACY OP CODE 


/FOYV2 
/YESeINC OP ADDR 


/FMUL? 
/YESeINCG Of ADBR 


AFMULM? . 
/NO#DQ NOY INC O® ADOR 
/tNC OP AOQBR 

/GEY INSTRUCTION 
/EXTRACT BIT $ 

/BIY 3 3 8? 

ZENO OF FETCH 

/NO © GO TO STATE 3 


Ah la hatnnan eins gen nee 


f ms 
4 a 


/ FPP FLOWS 


1472 
14441 
14%2 
1443 
1404 
1445 
1426 
1497 
1412 
14414 
1442 
1445 
1414 


1415 
1416 
1447 
1428 
1424 
1422 
1423 


41424 
1425 
1426 
1427 
1430 
1434 
1432 
1433 
1434 
1435 
1436 
1437 
1449 
1444 
1442 
1443 
1444 
1445 


4363 
4361 
*$77 
383Z 
6555 
3273 
1854 
0376 
7ile 
7812 
4532 
4546 
8865 


4963 
1873 
7648 
5223 
4961 
3833 
3873 


4376 
45453 
a024 
4574 
1054 
9375 
7426 
7086 
7006 
7479 
5244 
4774) 
5254 
7010 
7642 
5246 
4773! 
5274 


FECH4, 


FECH42, 


V283 


STEP 
SETOP 
AND 
JCA 
NCOP 
ACA 
TAS 
AND 


CLL RTR 


RAR 

STORA 
LQADB 
XBADR 


FSTEP 
rad 


SZA CLA 


JMP 
GETOP 
OCA 
DCA 


APBO 


LQADOP 


OREG 
CLRO 
FAD 
AND 


CLL RTL 


RTL, 
RT|, 


SZ, SNA 


JMP 
JMS 
JMP 
RAR 


SZA CLA 


JMP 
JMS 
JMP 


6eAPRe72 


(7 
MQMSW 


FLAG4 


PIR 
(72 


FLAGL 
+3 


MQLSW 
FLAGI 


PIR 
(170 


+3 


' 
SETSTS 


FECH6 


+3 


SETST6 


FECH7 





ie, 


£3137 PASE 28 


/STEP TO STATE 3 
/OUTBRK USING @P ADD? 
/ZEXTRACYT BITS 9e4q4 
/M89e4i TO MOMSW 


CLEAR FLAG 4 
/GET INSTRUCTION 
/EXTRACT BITS 68 


/JFIR 6e8 TS ALSW 28 2 TQ AMSW 
/X@ ADDR Te 8B 


/STEP TO STATE 4 

/GET DOUBLE WORD FLAG 
/DOUBLE WORD INSTRUCTION ? 
/YES e NO OUTBREAK 

/OUTBRK USING OP ABDR 

/MB TO MOLSW 

/CLEAR DOUBLE WORD FLAG 


/A PLUS B 0 0 
4/0 TO OP ABDR 


/@ 70 0 REG 


/GET JNSTRUCTION 
JEXTRACT BITS Se8 


/FIRS § @ AND FIR 6°8 NE Q? 


/YES*SETUP FOR STATE 6 
/GO TO MAJOR STATE 6 


/FIR 5°8 @ 9? 


/YES@SETUP FOR MAJOR STATE 7 
460 TO STATE 7 

















/ FpP FLOWS 


1446 
1447 
1452 
1451 
1452 
1453 


1454 
1455 
1456 
1457 
1460 
1464 
1462 
1463 
1444 
1465 
1466 
1467 
1470 


6563 
45541 
1251 
4376 
7650 
5244 


4543 
4557 
3825 
3824 
4546 
2824 
4576 
1852 
7710 
5271 
4546 
Q024 
4576 


N1ALi2 


PECHE, 


FECH6, 


VOIS 


FSTEP 
INCX 
TAD 

AND 

SNA CLA 
wJMP 


FSTEP 
GETX 
OCA 
DCA 
LOAD8 
AREG 
APBO 
TAD 
SPA CLA 
JMP 
LQADB 
OREG 
APBO 





6eaPRe72 


PTR 
(72 


FECHS#2 


ALSW 
AMSW 


COMREG 


+4 





13437 PAGE 29 


STEP TO STATE 5 


GET INSTRUCTION 
JEXTRACT BITS 6=8 
AFYR6e8 = 3? 
AYES@SETUP FOR STATE 7 


/STEP TO STATE 6 

/OUTBRK USING OP AdDR 

/MB TO ALSW 

4d TO AMSW 

7A’ 70 B FOR ADD (AeA TO 0) 


7A PLUS B TO 0 

/GET COMMAND REGISTER 
/FLOATING POINT MODE? 
/NO 

40 TO B 


JA PLUS TO 0 





Fe canteen a a) 


t ; 
‘ : 
F 

\ 


/ FPP FLOWS OJALLG 


1474 
1472 
1473 
1474 
1475 
1476 
1477 
1509 
1584 
1592 
1523 
15%4 
1505 
1586 
1507 
1540 
1544 
1512 
1543 
1514 
1545 
4546 
1547 
1529 
1521 
1522 
1523 
1524 
4525 
1526 
1527 
1530 
1534 
4532 
1533 


1567 
1572 
1574 
1572 
1573 
1574 
1575 
1576 
1577 


4563 FECHT, 
455¢ 

“332 

4546 

A024 

1254 

A372 

7642 

5312 

4562 

3225 

1254 

0377 

3924 

4546 

AP24 

4553 

4576 FECHT72, 
4543 

Ag24 

1252 

7742 

5333 

1054 

O374 

1372 

7439 

5332 

1374 

7459 

5332 

4370 

765g . 
4555 FECH?7S, 
5767/ PEND, 


16%¢ 
5222 
7020 
M200 
6353 
63355 
2172 
2270 
2287 
1622 


V223 


FSTEP 
LOADA 
MQREG 
LOADB 
OREG 
TAD 

AND 

SZA CLA 


GETPC 
ACA 
TAD 
AND 
OCA 
LOAOB 
OREG 
INCPC 
APBO 
LOADOP 
OREG 
TAD 
SPA CLA 
JMP 
Tad 
ANO 
TAD 
SNa 
JMP 
TAD 
SNA 
JMP 
TAQ 
SNA CLA 
INCOP 
JMP 


PAGE 


SeAPRe72 


PIR 
(220 


FECH72 


AL SW 
PIR 
(7 

AMSW 


COMREG 


FEND 
PIR 
(7802 
(=3080 


FECH7S 
(2{008 


FECH73 
(73222 


EXEC 


15137 PAGE 3$@ 


/STEP TO STATE 7 
MQ TO A 


JO 0 B 


AGET INSTRUCTION 
EXTRACT BIT 4 
/FIiR4eh 

/JYES#GO TO STATE 7e2 
/JQUTBRK USING FPE 
/MB TO ALSW 

/GET INSTRUCTION 
EXTRACT BITS Seq 
/FIR 9°44 TO AMSW 

/0 TO B 


SINC FPC 
/A PLUS ® FO 0 
/Q TO OP ABOR 


/GET COMMAND REG 
/D, P. MODE ? 

ZYES » END OF FETCR 
/GET INSTRUCTION 
/EXTRACT OP CODE 


/FOYV? 
/YESeINC OP ADDR 


/FMUL? 
/YESeJNC QP ADBR 


/FMULM? 
/YES* NC OF ADOR 
/GO TO EXECUTE 














x 


/ Fee FLOWS SlaAva2 Vids 
1672 7322 EXES. oe pol se 
1694 3273 SCA 
1472 3274 a4 
1633 3975 NCA 
1694 34:3 5CA 
1675 31424 ANCA 
4626 37774 ACA 
1697 1054 yaad 
1642 4376 ANO 
1611 76428 SZA CLA 
4642 5775! JMP 
16143 1054 PROCES, TAD 
4644 38374 ANS 
1615 1373 TAD 
46146 7422 SNL 
1647 5237 JMP 
41622 7652 SPEC4, SNA CLA 
4621 5772! JMP 
41622 4564 TRAPEO, ENTER 
41623 4563 TRAP{, FSTEP 
4624 4562 GETPC 
1625 3925 OCA 
1626 19851 TAO 
1627 83741 AND 
1632 3924 DCA 
1631 4544 LOad0 
4632 8924 AREG 
1633 4543 LOADOF 
4634 A824 COREG 
41635 45533 INCPC 
1636 S77Q! JMP 
1637 7322 SPEC2, CLA CLL 
1649 1951 TAD 
1641 2367 AND 
1642 7452 SNA 
4643 5766! JMP 
1644 74124 CLL RAL 
1645 7226 RTL 
1646 7429 SNL 
1647 5274 wJMP 


6eAPR=72 


ARITH 
PIR 
(7802 
(#2080 
SPEC2 


JXN 


ALSW 
PIR 
(7 
AMSW 


EXIT 


PIR 
(7778 


SPECS 


SPEC28 


1337 PAGE Si 


/EXECUTE SKIP CHAIN 


/CLEAR FLAGS AND TEMP LOCATISNS 


/GET {INSTRUCTION REG 
/EXTRACT BITS 34 


/ARITHMETIC INSTRUETIONS 
/PROCESS SPECIAL INSTRUCTIONS 
/GET OP CORE 


/WHICH SPECIAL FORMAT? 
/SPECIAL FORMAT 3 

A dXN? 

YES 

ZENTER TRAPPED INSTRUCTIONS 
STEP TO STATE 1 
/OUTBRK USING FPE 

/MB TO ALSW 

/GET INSTRUCTION REG 
/EXTRACT BITS Sed 
AFYIR9eit FO AMSW 

fa TO 0 


40 TO OP ASDR 


ZINC FPC 

/GO0 TO EX}? 

/SPECIAL FORMAT 2 ENSTRUCTIONS 
/GET JNSTRUCTIONS 


/SPEC FMAT 2 OR 3 
/SPEC FmMat $ 


/OP CODE @ OR ff 
JOP CODE Qg 


tele ens ence 


an 


/f FPP FLOWS 


1652 
2604 
1652 
1653 
1654 
1655 
1656 
1657 
1662 
+664 
1662 
1663 
1664 
1665 
1666 
1667 
1672 
16714 
1672 
1673 


1545 
7742 
5256 
4525 
7920 
5764! 
1254 
2363 
7112 
7942 
7242 
3138 
1362 
3194 
2104 
21283 
3266 
1504 
3184 
5594 


X1ALi2 


SPEC21L, 


V28S 


Tad 
SPA CLA 
JMP 
TRACE 
NOP 

JMP 

TAD 

AND 

CLL RAR 
RTR 

CMA 

OCA 

TAD 

DCA 

1S2 

1$z 

wMP 

TAD 
DCA 

JMP } 


6eAPRea72 


(#4422 
1*4 
FETCH 


PIR 
(170 


Ti 
(INS2ie1 
tT 


i 


13137 PAGE 32 


/NOP? 

/NO 

/YES*@PFRACING PROGRAM? 
/YES@#FYPE NOP 

4GOD TO FETCH 

/GET INSTRUCTION 
/EXTRACT EXTENSION 


/RIGKHT JUSTIFY 
/NEGATE 


/GET ADDRESS OF {NSTPUETION TABLE 
ZFIND INSTRUCTION 


/GET INSTRUCTION ABDRESS 











/ FpP FLOWS 


1674 
1475 
1576 
1677 
1702 
17244 
17282 
1743 
1784 
1745 
17%6 
1797 
1718 
4741 
1742 
1713 
1714 
1715 
1716 
1747 


1754 
1785 
1756 
1757 
17628 
1764 
1762 
17638 
1764 
1765 
1766 
4767 
1790 
4774 
4772 
1778 
1774 
1775 
1776 
1777 


7112 
7012 
7812 
7344 
7924 
745g 
576i! 
7021 
745¢ 
576g! 
7081 
7459 
5757 
1356 
7459 
5755! 
7004 
7652 
5754) 
5253 


5212 
4010 
2905 
4434 
4265 
4936 
7247 
0172 
1236 
6400 
2000 
7799 
2427 
0007 
4473 
6000 
7000 
2032 
600 
7112 
2082 


OLAL¢2 


SPEC22, 


V223 


a 
RTR 
RTR 
CIA 
rac 
SNA 
JMP 
TAC 
SNA 
UMP 
TAC 
SNA 
JMP 
TAD 
SNA 
JMP 
rac 
SNA 
UMP 
JMP 


PAGE 


RTR 


CLA 


6eAPRe7Z 


FALN 
FAYX 
FXTA 
(5 


FLOX 


ADOX 
SPEC2i¢3 


13137 PAGE 33 


ZALIGN INS?PRUCTIAN 
JATX INSTRUCTION 
/XTA INSTRUCTION 
/,DX JNSTRUCTION 


/ADDX INSTRUCTION 
/NOP 


\ 


/ Fee FLAWS 


2078 
aoa | 
cen’ 
Coes 
2094 
2335 
2086 
2207 
2312 
egdi 
2g12 
2048 
2214 
20415 
2846 
2247 
2020 
2221 
2022 
2023 
2924 
2825 
2826 
2027 


2030 
2931 
2832 
2333 
2934 
2035 
2936 
2937 
2240 
2041 
2942 
2943 
2944 
2945 
2346 
2947 
2350 
2954 


1051 
Ore 
7041 
7452 
5776! 
7234 
7452 
5775! 
7091 
7452 
5774! 
7001 


7459 
S773! 


7204 
7459 
5772! 
7021 
7459 
5774! 
7204 
7459 
5779! 
5767! 


1054 
8366 
7106 
7006 
7049 
3123 
1952 
7004 
7226 
7006 
1365 
3104 
21404 
2403 
5244 
1504 
3404 
5524 


MIALG2 


SPECS, 


ARI TH, 


VESS 


TA? 
AND 
cyA 
SNA 
JMP 
TAC 
SNA 
JMP 
TAC 
SNA 
JMP 
TAC 
SNA 
JMP 
TAC 
SNA 
JMP 
TAC 
SNA 
JMP 
LAC 
SNA 
JMP 
JMP 


TAD 


CLL RL 


RTL 
CMA 
DGA 
TAD 
RAL 


CLA RTL 


RTL 
TAO 
DCA 
1$2 
1S2 
JMP 
TAD ] 
DCA 
JMP } 


SeaPRel2 


PIR 
(7 


EX{T 
FPAUSE 
FCLA 
FNEG 
FNORM 
FSTF 


FStD 
JAC 


PIR 
(7308 


Ti 
COMREG 


CINSOed 
~2 

~2 

Ti 

os 

T2 

T2 

T2 


—— 


13157 PAGE 34 


/SPECIAL FORMAT 3 
JEXTRACT BITS 9ai4 
/NEGATE 


/EXIT 
/PAUSE 
/FCLA 
/FNEG 
/FNORM 
ASTARY F 


/START OD 
/ JAC 


GET INSTRUCTION 
/EXTRACT OP CODE 
/RIGHT JUSTIFY 


/NEGATE +4 

/SAVE MINUS OP CODE 

/GET COMMAND REG 

/DiP, BIT FO LINK — 

/MOVE 0,P, BIT To ACB 

/GET ADDR OF FLOATING PT, 
JOR 0,P, INSTRUCTION TABLE 


/INC ADDR 

/INC JNSTRUCTION 

/NOT THIS YNSesTRY AGAIN 
/GET ADDR OF INST 


/GO0 TO INSTRUCTION 











/ FpP FLIws 


2852 
2253 
2354 
2355 
2256 
2387 
22452 
2364 
2362 
2263 
2364 
2365 
2266 
2067 
2972 
2074 
2972 
2273 
2074 
2275 
2276 
2077 
2182 
2201 
2102 
2183 
2104 
2195 
2126 
2187 
2140 
24¢1 
2112 
2443 
2114 
2145 


4544 
4563 
1052 
7722 
4549 
4559 
2224 
4572 
4223 
3493 
1921 
779g 
7242 
3973 
4576 
4103 
7740 
4554 
14273 
7652 
5382 
1021 
7742 
5324 
4552 
5331 
1952 
7720 
5316 
1253 
0364 
4363 
3253 
7242 
3272 
5762! 


DIALL2 


MEP, 
DEPLd, 


yeas 


ENTER 
FSTEP 
TAD 

SMA CLA 
NORM 
LOADA 
CREG 
CLRB 
TAO 

OCA 

Tad 

SMA CLA 
CMA 

DCA 
APBO 
TAD 

SPA CLA 
INCOR 
Tad 

SNA CLA 
JMP 

TAD 

SPA CLA 
JMP 
INCST 
JMP 

TAD 

SMA CLA 
JMP 

TAD 

ANDO 

TAO 

DCA 

CMA 

OCA 

JMP 


6eAPReI2 


COMREG 


OEXT 
OMSW 


FLAG. 
Td 


FLAGL 


+4 
OMSW 


43 


CKMEM 
COMREG 
,+i0 
PSTAT 


(7377 


(200 
PSTAT 


EX{TSW 
DEPEND 


13137 PAGE 35 


/TYPE ENTER DEPOSIT 
/STEP TO STATEG1 
/GEY COMMAND REG 
/FIXEO PNY NSS‘? 
/CHECK AND NORMALIZE 
/O TO A 


/ZER0 TO B 


/SAVE O EX? FOR ROUNDING 
/CHECK FOR OVERFLOW? 

JNO © CLEAR FLAG 

/YES © SEF FLAG 

/STORE FLAG 


/GET EXT REG FOR ROUNDING 
/CHECK CARRY IN 
/YNCREMENT 0 REG) 

/CHECK FOR OVERFLOW 
/OVERFLOW? 

/NO © BYPASS OQ CHEEK 

/YES © CHEEK QVERFLOW 


OVERFLOW 
7NO OVERFLOW ; 
/BYPASS MAJOR STATE 12 
JGET COMMAND REG 
/FIXED PT, NOS? 

sno 

/GET STATUS WORD 

ASAVE OTHER BITS 

/SET FRAC OVERPLOW 


/SET EXIT SWITCH 
END OF DEPOSIT 


oo 


~ 


\ 


/ FPP FLOWS sy4L42 


2416 
2117 
2122 
2124 
2122 
2123 
2124 
2125 
2126 
2127 
2132 
2434 
2432 
2133 
21434 


21435 
2136 
2137 
2440 
2141 


2461 
2162 
2163 
2464 
2145 
2166 
2167 
2172 
2474 
e172 
214738 
21474 
2175 
2176 
2177 


45463 BEP LO, 
1224 
7112 
3027 
1022 
7212 
3032 
4544 
2027 
2074 
702 
4526 CKME™M, 
5335 
4552 
5761) 


4563 DEPIS, 
1822 
3887 
4365 
5761! 


2200 
2445 
g200 
7577 
7497 
7000 
S259 
5070 
5063 
5414 
5276 
515g 
5126 
2427 
9207 
2200 


V223 


FSTEP 
TAD 

@LL RAR 
BCA 

TAD 

RAR 

DCA 
LOADO 
BREG 
1$2 

NOP 
TOMEM 
JMP 
INCST 
JMP 


FSTEP 
TAD 
OCA 
DECOP 
JMP 


PAGE 


6eAPRe72 


OMSw 


BMSW 
OL SW 


BLSW 


SHREG 


+5 
DEP14 
OLSW 
LMEM 
DEP14 


sll, 


43137 PAGE 36 


/STEP TO STATE 12 
/1201 AND L2023SHIFT 
/@ TC BQ 


/B TO 0 
ZINC SHFT ENTR 
/RESULTS TO MEMORY? 


JNO © INCREMENT MAJOR STATE 
/BYPASS STATE 73 


7STEP TQ STATE 13 
/QLSW TO MEMORY 


/GO TO STATE 14 








/ FPP FLOWS StAu¢2 Voas 6"APRe72 43337 PAGE $7 


2272 4543 "E944, STEP /STE® To STATE 14 
2274 6526 TOMEM /RESULTS TS MEMORY? 
2292 7442 SKP JYES 

2273 5241 JMP 1*6 /NO 

2274 1221 Tad OMSW /OMSW TQ MEMORY 

2295 3226 OCA MMEM 

2276 4567 CMEMF /CHECK MEMORY FRACTION 
2227 4565 NECOP /DEC OP ADSR 

2212 5213 JMP ,+3 /BYPASS © 0 FAC 

2241 4547 LOADAC /O TOC Fac PRACTION 
22142 4621 OREG 

2243 1833 TAD MOLSW /MOLSW TO BLSW 

2244 4527 STORB /SIGN EXTEND TO BMSW 
2245 4534 SQEz 4O = 8 ? 

2216 7442 SKP /NO 

2247 7242 STA /YES » SET ZERO FO 
2228 3975 DCA FLAGS /FAC FF 

2221 1004 TA0 MOFLAG /GET MULT OR DLV FLAG 
2222 7659 SNA CLA /MULT OR DIV? | 

2223 5242 JMP DEP144 /NO = GO TO STATE 1404 
2224 1935 TAD ACEXP /FAC EXP TO ALSW 

2225 4539 STORA | /SIGN EXTEND TO AMSW 
2226 1054 TAD PIR AGET {NSTRUCTION REG 
2227 8377 AND (7992 /EXTRACT OP COBE 

2230 1376 TAD (e3200 

2234 7649 SZA CLA JDIVIDE? 

2232 5235 JMP ,*3 /NO 

2233 45977 AMBO /YES e A MINUS B TO 0 
22384 7449 SKP 

2235 4576 APBO fa PLUS B P0 0 

2236 4546 LOADB /Q 70 B 

2237 @824 . OREG 

2240 1971 DEP144, TAD SHREG /SHFT CNTR TO ALSW 
2244 4539 STORA ; —_—_- /SIGN EXTEND FO AMSW 
2242 1075 TAD FLAGS /ZERO To Fac FF SEP ? 
2243 7652 SNA CLA 

2244 5247 JMP ACNEZ /NQ ADD A AND B 

2245 4571 CLRO /YES e« @ T6 0 

2246 5252 JMP ACNEZe4 7/00 NOT aQB a PLUS B 


MINS eb nek fabian nent _ 





a 


/ FPP FLOWS 


2247 
2252 
22514 
2252 
2255 
2254 


2255 
2256 
2257 
2262 
22614 
2262 
2263 
2264 
2265 
2266 
2267 
2272 
2274 
2272 
2273 
2274 
2275 
2276 
2277 
2300 
2301 
2382 
2323 
2384 
2345 
2306 
2307 
2312 
2344 
2312 
2313 
2314 
2315 
2316 


23572 
2378 
2374 
2375 
2376 
2377 


4576 
4252 
7722 
5255 
3272 
5775) 


4563 
4526 
744148 
5265 
1222 
S225: 
4579 
5267 
1922 
3835 
4546 
2224 
7330 
3225 
3024 
4024 
7700 
5774! 
4576 
1221 
7708 
5315 
1053 
373 
1372 
32583 
1252 
7204 
7700 
7042 
31142 
7240 
3272 
5775/ 


0042 
7737 
2420 
2445 
>2BB 
7000 
2422 


DIAL42 


ACNE, 


PEPLS, 


ENOLS, 


VO8S 


APBO 
TAS 
SMA 
JMP 
DCA 
JMP 


FSTE 
TOME 
SKP 
JMP 
TAD 
DCA 
CMEM 
JMP 
TAD 
DCA 
LOAD 
OREG 
CLA 
DCA 
DCA 
TAD 
SMA 
JMP 
APBO 
TAD 
SMA 
JMP 
TAD 
AND 
TAD 
OCA 
TAD 
RAL 
SMA 
CMA 
OCA 
CMA 
DCA 
JMP 


PAGE 


CLA 


P 
M 


E 


B 
STL 


Cla 


CLA 


Cla 


BebPRe72 


COMREG 


DEPL5 
EX} TSW 
DEPEND 


+5 
OLSH 
EMEM 


0S 
OLSW 
ACEXP 


RAR 

ALSW 
AMSW 
OMSW 


OPOS 
OMSW 


ENO1S 
PSFAT 
(7737 
(49 
PSTAT 
COMREG 


IGNFL 


EXITSW 
DEPEND 


lll, 


13437 PAGE 38 


/A PLUS 8 TO 0 
/GET COMMAND REG 
/FIXED PNT, NOS,? 
/NO | 
/CLEAR EXT? SWITCH 
/END OF DEPOSI’ 


/STEP TQ STATE 15 
/RESULTS TO MEMORY? 
/YES 

/NO ©» BYPASS JNBRK 
/OLSW TO MEM 


/CHECK MEMORY EXPONENT 
/QLSW TO FAC EXP 
0 TO 8 


4/4002 TO A 


/Y¥S OLT @ 
/NO 
/YES © A PLUS B TO 0 


JIS OLT @ 

/NO e OK 

/GET STATUS WORD 
/SAVE OTHER BITS 
SET UNDERFLOW 


/GET COMMAND REGISTER 
/TRAP ON UNDERFLOW ? 
/NO = SET IGNORE UNDERPLOW FF 


/SET OR CLEAR EXIT SWITCH 
END OF DEPOSIT 











/ FPP FLOWS 


24a 
2404 
2402 
2403 
2404 
2485 
2406 
2407 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2420 
2424 
2422 
2423 
2426 
2425 
2426 


4577 
4531 
7642 
5207 
1024 
7788 
5214 
1053 
2377 
1376 
3953 
7040 
3072 
6556 
8375 
7844 
1253 
7649 
4774! 
4072 
7642 
5227 
5773! 


"TAL42 Vaa3 6whPReZ7e2 


OP3Ss, AMBO 


SOEZ 

SKP Cha 

yMP 1*4 

rad OMSW 

SMA CLA 

WMP ~*6 

Tad PSTAT 

AND (7637 

TAD (182 

5ca PSTAT 

CMA 

OCA EX?ITSwW 
DEPEND, FPRST 

ANDO (742 

CyA 

TAD PSTAT 

SZa CLA 

JMS STERR 

TAO EX{TSW 

SZA CLA 

JMP EXIT 

JMP FETCH 


1351437 PAGE $9 


/A MINUS B TO 0 


JIS 0 LES 8 

/NO 

/YES » SEY OVERFLOW 

7SAVE ALL SITS EXCEPT UNDERFLOW 


/SET OR CLEAR EX?? SWIifcH 
/READ FPP STATUS WORA 
/EXTRACYT OVERFLOW BITS 
/COMPARE WITH PROGRAM STATUS 


/STATUS ERROR 


Pr 


a 


a 


q 


/ FPP FLOWS 


2427 
2432 
7434 
2432 
2433 
2434 
2435 
2436 
2437 
2449 
2444 
2442 
2443 
2444 
2445 
2446 
2447 
2459 


2454 
2452 
2483 
2434 
2435 
2456 


2457 
2460 
2461 
2462 
2463 
2464 
2445 
2466 
2467 


2472 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2509 


DJALL2 


4364 EXIT, 
4563 , 
ai i2 
7652 
5257 
Site 
4526 
3243 
$035 
7236 
3037 
5254 
3895 
4555 
4563 
32A6 
3207 
4555 


4563 
4565 
4565 
4525 
2347 
57731 


3073 
1052 
372 
7640 
5266 
1037 
4774) 
4566 
4575 


TOFECH, 


EXSAV, 


4563 
1252 
2372 
7649 
5277 
1236 
4771! 
4566 
4575 


EXIT4, 


V2d3 


ENTER 
FSTEP 
TAN 


we 


SNA CLA 


jMe 
BCA 
TOMEM 
JMP 
SCA 
SCA 
BCA 
JMP 
QCA 
INCOP 
FSTEP 
OCA 
OCA 
INCOP 


FSTEP 
DECOP 
DECQOP 
TRACE 
VFER 
JMP 


OCA 
TAD 
AND 


SZA CLA 


JMP 
YAO 
JMS 


DECAPT 


CAPT 


FSTEP 
TAO 
AND 


SZ4 CLA 


wJMP 
TAO 
JMS 


DECAPT 


CAPT 


6eaPRel2 


IGNFL 


EXSAV 
IGNFL 


1*5 
ACEXP 
ACMSW 
ACLSW 
TOFECH 
EMEM 


MMEM 
LMEM 


FETCH 


FLAGS 
COMREG 
(2e 


ACLSK 
EXCOM 


COMREG 
(28 


ba 
ACMSW 
EXCOM 


43157 PAGE 42 


STEP TO STATE 2 

/GEY JGNORE TRAP FF 
/UNDERFLOW JTGNORED 7 
/NO = SAVE APT 

/RESET UNDERFLOW FLAG 
/ANSWER STORED IN FAC? 
/NO «= @ TQ MEM 

YES ew 2 TO Fat 


/UNCREMENT OP ADDRESS 
ASTEP TO STATE 4 


JUNCREMENT OP ADSRESS 


/STEP TO SPATE 2 

/DECREMENT THE OP ADDRESS 
/DECREMENYT THE OP ADDRESS 
/TRACING PROGRAM? 

/UNDERFLOW ERROR » GO fO FETCH 


/CLEAR ERROR FLAG 


/SAVE FAC? 
/NO 


/YES # COMPARE LSW 
7DEC, ADRS 
/COMPARE APY ADDRESS 


/STEP TO STATE 1 


/SAVE FAC? 

/NO 

/YES 

/COMPARE MSW 

/DEC, ADRS 

/CHECK APT ADDRESS 











2584 
2522 
2593 
2574 
2545 
25%6 
2547 
2512 
2541 


2542 
2513 
2514 
2545 
2516 
2547 
2520 
2521 
2522 


2525 
2524 
2525 
2526 
2527 
2538 
2534 
2532 
2533 


2534 
2535 
2536 
2537 
2549 
2544 
2542 
2543 
2544 
2545 


2566 
2567 
2572 
eared 
2572 
2573 
2574 
7579 
2576 





A FPP FLOWS 


4563 
1252 
2372 
7642 
5312 
1035 
4774/ 
4566 
4575 


4563 
1952 
8372 
7642 
5321 
4045 
4774! 
4566 
4575 


4563 
1932 
0367 
7649 
5332 
1835 
47914 
4566 
4595 


4563 
1282 
8376 
7649 
5343 
1066 
4774! 
4566 
4575 
5746! 


2688 
AD4O 
M2a0 
2627 
1929 
1236 
7325 
A74Q 
P1090 
7637 
268g 


JTAL42 


EXIT, 


EXITS, 


EX{IT4, 


EX{TS, 


VO8$ 


FSTEe 
TAD 
AND 


SZa4 CLA 


JMP 
TAD 
JMS 


DECAPT 


CAPT 


FSTEP 
TAD 
AND 


SZ4 CLA 


JMP 
Tad 
JMS 


DECAPT 


CAPT 


FSTEP 
TAD 
AND 


SZA CLA 


JMP 
PA0 
JMS 


DECAPT 


CAPT 


FSTEP 
TAQ 
AND 


SZA CLA 


JMP 
TAO 
JMS 


DECAPT 


CAPT 
JMP 


PAGE 


6eAPRe72 


COMREG 
(22 


,e3 
ACEXP 
EXCOM 


COMREG 
(298 


1% 
OPADRe4¢ 
EXCOM 


COMREG 
(48 


3 
PBASEed 
EXGOM 


COMREG 
(182 


43 


XOaDRed 
EXCOM 


EXIT6 


13137 PACE 41 

STEP TO MAJOR STATE 2 
ASAVE FAC? 

/NO 

/SYES » COMPARE EXPONENT 
/DEC AORS 

/SCOMPARE APT ADORESS 
STEP TO STATE 3 


/SAVE OP ABDR? 


/NO 
/YES » COMPARE OF ADPR 
/DEC, AORS 


/CHECK APT ADORESS 


STEP TO SPATE 4 


/SAVE PZ ADDR? 


/NO 
/YES » COMPARE P@ ALDOR 
/OEC, ADRS§ 


/CHECK APT ADDRESS 
/ASTEP TO STATE 5 


/SAVE X@ ABDRESS? 
/NO 


“YES 

/COMPARE X@ ADBRESS 
DEC, ADRS 

/CHECK APT ADDRESS 
GO TO STATE 6 


Oo 


i 
Me 


~~ 


/ FpP FLOWS 


2622 
2674 
2622 
2673 
2684 


2675 
2646 
2627 
2612 
2641 
26142 
2613 
2644 
2645 
2616 
2647 
2620 
2621 
2622 
26238 
2624 
2625 
2626 


2627 
26302 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2642 
26414 
2642 
2648 
2644 
2645 
2646 
2647 


4553 
1242 
4227 
45466 
4575 


4563 
4777/4 
4227 
6557 
7402 
2376 
7841 
1053 
7649 
4775) 
1973 
7652 
5225 
4774! 
2655 
2280 
4773! 
5772! 


2220 
3118 
1047 
7424 
7826 
1374 
3236 
6201 
14598 
620i 
7844 
1110 
7652 
5247 
7249 
3273 
5627 


MTAL12 


EXITS, 


EXIT7, 


EXCOM, 


VO23 


ESTEF 
TAD 
aS 


NECAPT 


CAPT 


FSTEP 
JMS 
JMS 
FRIST 
ERROR 
ANO 
CIA 
TAO 


SZA CLA 


JMS 
TAD 


SNA CLA 


MP 
JMS 


APTERR 


‘ 
JMS 
JMP 
8 


DCA 
TAQ 


CLL RAL 


RTL 
TAQ 
DGA 
COF 
Tad 
cOF 
CIA 
TAD 


SNA CLA 


JMP 
CMA 
DCA 
JMP 1 


6eAPRaF2 


PFPC+#1 
EXCOM 


APTPAC 
EXCOM 


HALT 
(742 


PSTAT 


STERR 
FLAGS 


ad 
TYP 


SETRET 
START 


EXWO 
PAPT 


(COF 
14 


PAPTe#4 
02 


EXWD 
43 


FLAGS 
EXCOM 


13137 


/STEP TQ STATE 6 


SCOMPARE FPC 


/DEC, 


/ERECK APF ADDRESS 


ASTEP TQ STATE 7 
/PACK APT FIELO @IifS 
/COMPARE FELD BifSs 
/CRECK FLAG 

7FLAG IS NOT SET. 
/GET OVERFLOW STATUS 


STATUS ERROR 
/GCHEECK ERRAR FLAG 
JWAS APT DATA STORED CORRECTLY ? 


AYES 


/NO © TYPE ERROR MESSAGE 


/SET REENTER ADDRESS 
G0 TO CONTROL PROGRAM 


/SAVE COMPARE WORQ 
/GET APT FYELD BITS 


/CREATE FPP COF 
/CHANGE TO FPP FIELD 


/GET APY INFO 
/PROGRAM FIELD 


/SET ERROR FLAG 
/RETURN 

















7 FPP FLOWS 


7653 
2651 
2682 
2653 
2654 
2655 
2656 


2637 
2669 
2641 
2662 
2663 
2664 
2665 
2666 
2667 
2672 
2671 
2672 
2673 
2674 


2675 
2676 
2677 
27280 
2731 


2764 
2765 
2766 
2767 
2770 
2771 
2772 
2778 
2774 
2775 
2776 
2777 





4564 
£563 
4561 
2227 
6555 
4350 
2236 


4563 
4561 
3832 
1051 
370 
7650 
$279 
4577 
7440 
4576 
1141 
7642 
5275 
5767! 


1253 
23466 
1365 
3253 
5764! 


2427 
0200 
7577 
2052 
2000 
6201 
R230 
7254 
7343 
7325 
a7 4g 
61294 
3900 


DTAL12 


OPAIN, 
SPAQDZ, 


OPADDI, 


DPOVFL, 


VOaS 


ENTER 
FSTEP 
GETOP 
ACA 

INCOP 
LOADA 
ACMSW 


FSTEP 
GETOP 
DCA 

TAD 

AND 

SNA CLA 
JMP 
AMBO 
SKP 
APBO 
Tad 

SZA CLA 
WJMP 

JMP 


TAD 
AND 
TAD 
DCA 
JMP 


PAGE 


6eAPRa72 


BMSW 


BLSW 
PIR 
(2808 


o%5 


OVFL 


DPOVFL 
DEP 


PSTaT 
(7877 
(202 
PSTAT 
EX]T 


43137 PAGE 43 


70,P, ADD AND SUB 
/STEP TO STATE 2 
/OUTBRK USING OP ADDR 
/MB TO BMSW 

/INC OF ADBR 

/FAC FRAC 70 A 


“STEP TO SPATE 1 
/OUTBRK USING OP ADDR 
7MB TO BLSW 


/SUBTRACTION? 
/NO » GO TO ad 
7A MINUS B TO 0 
/A PLUS B FO 0 
OVERFLOW? 


AYES 
470 DEPOSI? 


ASET ARITH FLOW 
/TO EXIT 








mo 


/ FPP FLOWS 


3970 
Tga4 
3922 
3223 
3306 
3245 
3256 
3227 
30410 
3041 
312 
32138 
3014 
3945 
3216 
3047 
3220 
3021 
3922 
3423 
3024 
3025 


63564 
4383 
45461 
4527 
1332 
3233 
4555 
1235 
4532 
4577 
1224 
772Q 
5273 
7240 
3273 
1822 
3274 
4546 
2024 
1101 
4930 
4576 


DJALLZ 


PFAD, 
FADO, 


V29S 


ENTER 
FSTEP 
GETOP 
STORE 
TAD 
DCA 
INCOP 
TAD 
STORA 
AMBO 
TAD 


SMA CLA 


JMP 
STA 
OCA 
TAD 
OCA 
LQADB 
OREG 
TAD 
STORA 
APBO 


6ebPRe72 


BLSW 
MQLSW 


ACEXP 


OMSW 
SHFOP 
FLAGS 


OLSW 
SHREG 


O27 +4 


43137 PAGE 44 


7ADD » SUB OF F,P, NOS’ 
/STEP TO STATE OB 

/OUTBRK USING OP abDR 
/MB TO BLSW SIGN TO &MSwW 


MB TO MO LSW 

/YNC OP ADBR 

/GEY FAC EXPONENT 

/FAC EXP TQ ALSW S{GN TO AMSW 
JA MINUS B TO 0 


/1S 0 LESS THAN AA 

JNO © SHIFT OPERANDS PATH 
/SHIFT FAC FRACTION PATH 
/SET SHFT PAC FF 


/Q TO SHFT CNTR 
/Q 7a B 


427 70 ALSW 
7A PLUS B 70 0 











/ 


Fpe FLEWS 


2326 
3327 
7332 
3334 
3932 
3233 
3334 
3335 
3236 
3337 
3242 


So44 


3942 


3943 
3944 
3945 
3346 
3247 
3239 
3931 
3932 
3953 
3934 
3g35 
3236 
3237 
3949 
SO61 
3362 
3263 
3264 
3345 
3266 
326? 
3a70 
3074 
3B7%2 





4563 
4561 
47774 
7242 
3024 
4555 
1824 
7712 
7842 
3074 
4572 


4563 
4561 
4777! 
5247 
3925 
5255 
7942 
3925 
41376 
3926 
1423 
3076 
4576 
4546 
O36 
4531 
5267 
1935 
3233 
4544 
1027 
5775 / 
1074 
7640 
5775! 
5774! 


DTALLe 


FADD, 


FADD?, 


VO23 


FSTEP 
GETOP 
JMS 
CMA 
ACA 
INCOP 
TAD 
SPA CLA 
CMA 
OCA 
CLRB 


FSTEP 
GE TOP 
JMS 
JMP 
OCA 
JMP 
CMA 
DGA 
TAD 
OCA 
TAD 
OCGA 
APBO 
LO40B 
FACFR 
SOEZ 
JMP 
TAD 
DGA 
LOADO 
BREG 
JMP 
TAD 
SZzA CLA 
JMP 
JMP 


6eAPRale 


CKSUB 
AMSW 
OMSW 


FLaGe2 


+6 
ACE XP 
MQLSW 


F ABEND 
FLAG2 


FABEND 
FADDS 


13137 PAGE 45 


/STEP To STATE 1 
/OUTBRK USING OP ADDF 
/SUBTRACTION? 

7ZYES @ COMPLIMENT 68 
/MB TO AMSW 

JING OP ADSR 


40 @ TO OVERSHFT FF 
78 ro 8 


/STEP TO STATE 2 
/OUTBRK US{NG OP ADDR 
/SUBTRACTION? 

/YES © NOT MB TO ALSW 
/NO © MB TO ALSW 


/COMPLIMEN? MB 
NOT MB TQ atLSw 
/COMPLIMEN? @ TO AEXT 


fi TO ACRY JN 


/A PLUS B 70 QO Bag JF ADDITIO 
/FAC FRAC TO 8 poeee 


40 # 2 ? 

7NO 

AYES wal 

/FAG EXP To MOQLSW 
4B 70 0 

/GO TO DEPAaSIT 
/OVERSHIF? FF a f ? 


/YES = GO TO DEPOSIT 
“NO = GO TO STATE 8 


f 


\ 
ee, 


an 


/ Pop Flews DTALi2 VvOas 6eAPRe72 45157 PAGE 46 
2373 1222 SHFOP, TAD OLSW /STATE 2 SHIFT OPERAND 
Za74 0 0-794 CMA 
B75 FAM DCA SHREG /0 COMPLIMENT 70 SHF® ENTR 
T3276 4546 LOADB 40 TO B 
2377 2224 OREG 
2172 «1121 TAD D27+4 
31274 4532 STORA /*27 70 ALSW 
3482 4577 AMBO /A MINUS B TO @ 
3143 2871 1S2 SHREG /INC SHFT @OUNTER 
3126 67689 NOP 
3425 64563 FADOGL, FSTEP /STEP TO STATE 41 (SHFYT OP PATH) 
31426 64561 GETOP /OUTBRK USING OP ADDRESS 
3187 3927 OCA BMSW /MB TO BMSW 
31ii@ 4555 INCOP /INC OP AQGR 
Siti 1821 TAD OMSW 
31442 7710 SPA CLA 
3143 7949 CMA | 
3444 3074 DGA FLAG2 /O @ TO OVERSHFT FF 
3ii5 4550 LOADA /FAC FRAC TO A 
3146 9936 FACFR 
3447 4544 LQADO fA 70 0 
3429 9924 AREG 
3424 4534 SOEZ /0 a ? 
3422 5327 JMP FAOGLA /NO 
3123 7249 CMA . YES 
3324 3975 OCA FLAGS /4 TO ADD ZERO FF 
3425 4573 CLRA | 40 TO A 
3426 5334 JMP 146 
3127 1835 FAD@GA, TAO ACEXP 
3132 3933 OCA MOLSW /FAC EXP Ta MQLSW 
3434 10874 TAD FLAG2 
31432 7642 SZA CLA /OVERSHFT FFai? 
3133 5775! JMP FADEND /YES » GN FO DEPOSIT 
3434 5773! JMP FADD@2 /NO = GO To STATE 2 


3473 3222 
8174 «3243 
3475 3252 
2476 7409 
S477 45461 
W250 PAGE 














4 FpP FLOWS 


3202 
3204 
3202 
3243 
3204 
3205 
326 
3207 
3240 
3244 
3242 


3213 
3244 
3245 
3216 
3247 
3228 
3224 
3222 
3223 
3224 
3225 
3226 
3227 
3232 
3234 
$232 
32338 
3234 
3235 
3236 
3237 
3242 
S241 
$242 
3243 
3244 
3245 
3246 
3247 
3239 
3234 
3282 
3253 
3284 
3255 
3256 


om 
x z 


4563 
4561 
2232 
1275 
7652 
5213 
4544 
A927 
479774 
4577 
5252 


4363 


DIALIe 


FADI@2, 


FADDS, 


FADEND, 


V883 


FSTEP 
GETOP 
OCA 
vad 
SNA CLA 
JMP 
LOADO 
BREG 
JMS 
AMBO 
JMP 


FSTEP 
SHFTB 
JMS 

SKP CLA 
JMP 

TAD 

SZa CLA 
JMP 
AMBO 
JMP 

TAD 

OCA 
APBO 
TAQ 

SNA CLA 
JMP 

TAQ 

CLL RAR 
TAD 

OCA 

TAO 

RAR 

DCA 

TAD 

RAR 

AND 

OCA 
LOADO 
BREG 
1$z 

SKP 

OCA 

DCA 

DCA 

OCA 

JMP 


6eAPRe72 


BLSH 
FLAGS 


FAODS 


CKSUB 
FADEND 


CKSUB 


.+i0 
FLAGS 


145 


saa 
C4o0 
CARYIN 


OVFL 


FASENOD 
OMSW 


CAROUT 
BMSW 
OLSW 


BLSW 
OEXT 


(74608 
BEXT 


SHREG 


SHREG 
FLAGS 
FLAG2 
FLAGS 
DEP 


43137 PAGE 4? 


ASTEP TO STATE 2 
/OUTBRK USING OP ABODR 
/MB TO BLSW 


7aDD ZERO FFad 
sNO © GO YO STATE 8 


7/8 TO 0 
SUBTRACTION? 


/JYES e© A MINUS B TO 0 
/GO TO DEPOS{T 


/STEP TO STATE 3” | 
UF SHFT CNTR NE @eSHIFT B 
/SUBTRACTION? —_ 

/YES e CHECK SHFT FAC FF 
/NO # ADD A ANB B 

/SHFT FF SET? 

/NO = #4 70 CARRY IN 

/YES e A MENUS B TO 0 


/4 70 CARRYING 

7A PLUS B 0 Q 
/FRAC OVERFLOW? 
/NQ-= GO Te DEPOSIT? 
/ 


/SET SIGN BY? 
70 70 B SHIFTED RIGHT 


/GET EXTENSION 

/KEEP IT 4 BITS LONG 
48 T0 0 

/INC SHFT ENTR 


/CLEAR FLAGS 
GO TO DEPOSIT 


a 


ee A 


f | 
\ 


4 


/ FPP FLOWS 


3257 
226 
3261 


3262 
3263 
3264 
265 
3266 
7267 
2279 
3274 
3272 
3273 
3274 
3275 
3276 
3277 
3300 
3301 
3302 
3393 
3304 
3305 
3326 
3307 
3340 
3311 
3342 
3313 
3344 


4564 
724g 
3224 


4563 
4561 
2227 
1827 
7742 
7242 
3973 
4555 
4573 
4421 
3271 
1067 
7728 
5323 
1979 
6567 
3O74 
1071 
7042 
3O74 
4563 
4561 
3832 
1873 
7740 
5316 
4576 
7619 
4577 
4545 
8924 
1036 
77108 
5327 
4559 
M236 
5337 
1036 
7048 
3024 
1937 
7049 
3025 
1376 
3926 
4572 
5774! 
342g 
?Y52 
7AAL 


OLAL‘2 


FMULT, 


MULT 2s 


MULT4, 


MULTIA, 


V8RS 


ENTER 
STA 
DCA 


FSTEP 
GCETOP 
PCA 

TAO 

SPA CLA 
CMA 

DCA 
NCOP 
CLRA 
Yad 

OCA 

TAD 

SMA CLA 
JMP 

TAD 
LSHF T 
OCA 

TAO 


6eAPRe72 


MDFLAG 


BMSW 
BMSW 


FLAGS 


D27e+1 
SHREG 
SHFLAG 
34 
SHFCNY 
SHREG 
SHREG 
SHREG 
BLSW 
FLAGS 


43 


ACMSW 
o4 

MUL TILA 
ACMSW 


AMSW 
ACLSW 


ALSW 
(7422 
AEXT 


MULT2 


ain 


45137 PAGE 48 


AJENTER MULTIPLY 
SEY MULT, DIV, FLAG FOR MULTIPLY 


ENTER STATE @ 
/OUTBRK USING OP ABDP 


/MBQ 70 OP SIGN 
/INCREMENT OP ADDR 
/@ 70 2 


23 TO SHIFT CNTR 


/OPERATOR SELECTED SHIFY CNT? 
/NO@USE NORMAL SHIFT CNT 
/YES@GET SPECIAL GOUNT 

/LOAD FPP SHIFT REC 


/NEGATE SHIFT REG 
/FOR DECREMENT WITR 
/\SzZ LOOP 

ASTEP TO STATE 1 
/OUTBRK USING OP aDoR 
/MB TO BLEW 

AGET OP SIGN 

jae SIGNei? 


AYES 

/NO#A PLUS B TO 0 
/A MINUS B TO @ 
/0 TO MQ 

/Gac FRac LT of 
/YES 

/FaC FRAC 70 A 


/COMPLIMENT FAC FRAC TO A 


/COMPLIMENT @ TO EXT 


/@ TO 8 
GO TO STATE 2 





beep 39Va 


£E1S 


cheudVag 


39Vd 


LBA 


2bVIG 





Treo Zee 
SMO 4 dda / 


\ 


/ © pP FLOWS 


347g 
3404 
34n2 
3403 
3404 
3425 
3406 
3407 
3440 
3444 
3442 
3443 
3444 
3445 
3446 
3447 
3420 
3424 
3422 
3423 
3424 
3425 
3426 
3427 
3430 
3434 
3432 
3433 
3434 
3435 
3436 
3437 
3449 
3444 
3442 
3443 
3444 
3445 
3446 
3447 
3489 
3454 
3482 
3483 
3484 
3485 
3456 
3437 
3462 


4563 
1236 
7712 
1423 
3076 
4576 
2074 
7412 
5227 
1232 
71430 
3832 
£833 
7012 
3033 
7429 
5225 
4546 
@Q24 
1223 
S031 
4777! 
5201 
4544 
4927 
1052 
7710 
5236 
4565 
4565 
4546 
A024 
1223 
3034 
4573 
1036 
7404 
7292 
1073 
7532 
7440 
5256 
7062 
7520 
5256 
4577 
1052 
77140 
5266 


DIALL 


MULT2, 
MA5D, 


MULT24, 


V2Z23 


rSTEP 
TAD 

SPA CLA 
TAD 

OCA 
APBO 
1$2 

SKP 

JMP 

TAD 

STL RAR 
OGA 

Yad 

RAR 

OCGA 

SNL 

JMP 
LOADB 
OREG 
FAD 

OCA 

JMS 

JMP 
LQADO 
BREG 
TAD 

SPA CLA 
JMP 
DECOP 
DECOP 
LOADB 
COREG 
TAD 

DCA 
CLRA 
TAQ 

CLL RAL 
CLA 

TAD 

SPA S2#L 
SKP 

JMP 

CMA CML 
SMA SNL 
JMP 
AMBO 
TAD 

SPA CLA 
JMP 


6eAPRa72 


FACFR 


C482 
CARYIN 


SHREG 


MUL T2d 
MQMSW 


MQMSW 
MQLSW 


MOLSW 
15 
QOExT 
BEX? 
RARB 
MAB 
COMREG 


( +3 


OEXT 
BEXT 


ACMSW 
FLAGS 
45 


s*2 
COMREG 
MULEND 


fam, 


43437 PAGE 49 


ASTEP TO STATE 2 


/FAC FRAC LT @? 
AYES el TO CARPY INSERT 


/ENABLE A PLUS B TO 2 
/OEC SHFT ENTR #8,C,20 
/NO@ CONTINUE 


/YESeGO TO SYATE 2e 
/SHIFY MO 


/MQ(23)947 

/NO 

/YES*STROBE B 

/0 EXT TO @ EXT 
/SHIF? 8B RIGHT . 
/CONTINUE UNTILL S40. 98 
7B TO @ 

/DOVELE PRECISION? 
/YES 

ADEG OR ADBR 

40 TO B 

70 EXT TO B EX? 


/@ TO A 
/ 


/ 
/PROG NEG? 


/NO#=PROD IS POS 


/NOwPROO [S POS 


7PROD IS NEGeA MUNUS B TO 0 


/DOUBLE PRECISION? 
/YES#GO TO DEPOSIT 




















/ FpP FLOWS 


4464 
3442 
3463 
3464 
3445 
3466 


3467 
3473 
3474 


3472 
3473 
3474 
3475 
3476 
3477 
3528 
35284 
3582 
3593 
3534 
3505 
3506 
3507 
3542 
3541 
3542 
3543 
3514 
3515 
3516 
3517 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3532 
3531 
3532 
3533 
3536 


4543 
4561 
3933 
6555 
4555 
5776! 


4564 
7240 
3924 


4563 
4561 
3927 
1027 
7740 
7048 
3973 
4555 
1036 
7710 
5319 
4559 
8236 
5323 
1837 
7044 
3025 
1036 
7040 
7430 
7084 
3024 
3826 
4544 
ag24 
1967 
7650 
1375 
1870 
6567 
7044 
3074 
3033 
2932 
3Q34 


NTALL2 


MUL TS, 


MULENO, 


PFO, 


DIVd, 


DIVOA, 


V283S 


FSTEP 
GETOP 
ICA 
INCOP 
TNCOP 
JP 


ENTER 
STA 
DCA 


FSTEP 
GETOP 
s]ey | 
TAQ 


SPA CLA 


CMA 
OCA 
INCOP 


OCA 


Be APReF2 


MQLSW 


OEP 


MOFLAG 


SHREG 
MQLSW 
MQMSW 
MQEXT 


15437 PAGE 52 


/STEP TO STATE 3 
/QUTBRK USING OP ADDR 
/MB TO MOLSW 

UNC QP ADSR 


/GO TO DEPOSIT 


/ENTER DIVIDE 
/SET MULT, DIV, FLAG 


ASTEP TO STATE B 
/OUTSRK USING OP aOoR 
/MB TQ BMSW 


/MB@ YO OF SIGN 
ZINC OP ADOR 
/GET FAC MSW 
/¥S FAC LY @? 
“YES 

/NOmFAC TO A 


/COMPLIMENT FAG TO A 

/A*t 70 6 aNd © fO0 A IS 
/EQUAL TO THE 2S COMPLIMENT 
/OF THE FAG TO A’, 


/THIS COMPLETES MINUS 
/GLEAR A EXT 
/SYNC O REGISTERS 


/OPERATOR SELECTED SHIFT COUNT? 
/NO#"34 7O SHIFT CNTR 
/YESeaSHFCNTae@ IP NOT USED 
/,OAD FPP SHIFT? REG 


/CLEAR MQ REG 


A as, 
‘ P 
\ ’ 


/ FPP FLOWS 


3535 
3536 
3537 
3542 
3544 
3542 
3543 
3544 
3545 
3546 
3547 
3552 
3554 
3552 
3553 
3554 
3555 
3556 
3557 
3569 
3564 


3562 
S571 
3572 
3573 
8574 
3575 
3576 
3577 


4563 
4561 
2232 
3031 
4544 
3927 
1224 
7640 
5360 
1222 
7649 
5362 


1853 


W374 
4373 
3053 
4525 
2231 
5770! 
4544 
ag24 


5774 
3608 
2427 
2489 
7377 
OB34 
2052 
4254 
3602 


DYALLZ 


DUVi, 


VG23 


FSTEP 
CETOP 
QCA 

"CA 
LQADO 
BREG 
TAD 

SZ4 CLA 
JMP 

TAD 

SZA CLA 
JMP 

TAD 

AND 

TAD 

OCA 
TRACE 
O1VzZ 
JMP 
LOADO 
AREG 


NPAGE 
JMP ft 


PAGE 


SeAPRe72 


BLSW 
BEXT 


OMSW 


1413 
OLSW 
+18 
PSTaT 
(7377 
(409 
PSTaT 


EX{T 


(', #209087688 


am 


43437 PAGE 54 


/STEP TO STATE 4 
/QUTBRK USING OP ADDR 
MB TO BLSwW 

/CLEAR 8 EXT 

4a TO 0 


/088? 


/NO 
/Q82? 


/No : 
/YES@eSET SIVIDE BY % BIT 
/SAVE OTHER BITS 


/TRACING PROGRAM? 
/YES@aDIVIBE BY ZERO 
760 TO EXT? 

7k 70 0 











/ FPP FLOWS 


3679 
3624 
36%2 
3693 
3674 
3605 
366 
3637 
36412 
3644 
3642 
3643 
3644 
3645 
3616 
3647 
3620 
3624 
3622 
3623 
3624 
3625 
3626 
3627 
3630 
3634 
3632 
3633 
3634 
3635 
3636 
3637 
3640 
3644 
3642 
3643 
3644 
3645 
3646 
3647 
3650 
3654 
3652 


4563 
1273 
I7142 
5214 
1032 
7244 
3030 
1827 
7240 
7432 
7004 
3027 
1071 
7652 
5303 
7382 
1025 
1039 
3063 
7430 
7084 
7100 
1024 
1827 
3262 
7042 
7812 
3103 
1034 
7004 
1103 
3034 
1033 
7904 
3233 
1832 
7004 
3032 
1123 
7648 
5253 
4279 
5255 


Ntali2 


D1Ve, 


DIVIABE, 


VO8S 


FSTE 
TAD 
SPA 
JMP 
TAD 
CYA 
DCA 
TAD 
CMA 
Sz. 
TAC 
OCA 
TAD 
SNA 
JMP 
CLA 
TAD 
TAD 
OCA 
Sz. 
Tac 
Chl 
TAO 
TAD 
OCA 
RTR 
RTR 
DGA 
TAD 
RAL 
TAD 
OCA 
TAD 
RAL 
DCA 
TAD 
RAL, 
OCA 
TAD 
SZA 
JMP 
JMS 
JMP 


Pp 


CLA 


Cla 
Chl 


CLA 


6egPRal2 


FLAGL 


OIVIDE 
BLSW 


BLSW 
BMSW 


BMSW 
SHREG 


ENDOIV 


ALSW 
BLSW 
TLSW 


AMSW 
BMSW 
TMSW 


Td 
MQEXT 


74 
MQEXT 
MQLSW 


MOLSW 
MQMSW 


MQMSW 
zp 


tS 
OLEFT 
+S 


13437 PAGE 52 


/STEP TO STATE 2 

/GET OP SIGN 

/OP S}GNed? 

/NO 

JNEGATE 8 SQ THAT AN 

7ADD WILL WORK IN BOTH — 
/CASES SINCE THIS GCOMPUTER 
/DOES NOT WAVE A SUBTRACT 
/INSTRUCTION 


/CHECK SHIFT REG FOR ZERO 


/NO OVVIDE IF SH REG @ g 
/A MINUS OR PLUS B 

/¥O TEMP REG FOR 

ATRIAL SUBTRACT 


/OID LSW OVERFLOW? 
/YES=eADD LSW OVERFLOW 


/SAVE CARRY OUT 
/\N BIT 27 

/SAVE CARRY OUT 
7MQCN) TO MQ(N@L) 


/CARRY OUT TO MQt29) 


ZENO OF SHIFT MQ 


/GARRY OUT#1? 
/YES e LOAD O 
/NO = SHIFT 0 
END OF SHIFT 6 


a “Ss (i, ° 
/ FPP FLOWS SIAL vgs 6eAPRo72 43137 PASE 58 ; 

7653 4544 LOADO /CARRY OUT 5 Q 

3654 7062 TREG 70ad oO 

3655 2074 1Sz SHREG JJEC SHFT ENTR 

3656 7419 SKP /SHFT CNTR NOT s Q 

3657 5323 JMP ENODIV /S.C,88 END OF DIVIDE 

3662 1123 TAD T4 

3661 764g SZ4 CLA /CARRY OUT = 1 ? 

3662 4272 JMS OLEFT YES «@ SHIFT 0 

3663 4559 LOADA 70 TOA 

3664 9924 OREG 

3665 1823 TAD OEXT JO EX? TO A EX? 

3666 3826 DCA AEXT 


3667 5244 JMP DIVIDE /CONT, DIVIDE UNTIL S E,ag 











/ FPP FLOWS 


2672 
2674 
3672 
3673 
3674 
3675 
3676 
3677 
S742 
37AL 
37A2 


S743 
3744 
3785 
3726 
3747 


2Ba2 
1023 
7424 
3828 
1822 
7084 
3222 
1924 
7284 
3224 
56790 


4546 
2832 
1834 
S834 
4573 
3276 
4544 
4027 
1252 
7789 
5347 
1021 
7722 
S334 
4335 
1953 
8377 
1576 
3853 
4525 
2241 
5775/ 


DIAL 


OLEFT, 


ENDOIV, 


QUONEG, 


V223 


ta] 
x 


RAL CLL 


ocA 
TAD 
RAL 
NCA 
TAD 
RAL 
DCA 
JMP { 


LOADB 
MQREG 
TAD 
DCA 
CLRA 
DCA 
LQAQ0 
BREG 
TAO 


SMA CLA 


JMP 
TAD 


SMA CLA 


JMP 
JMS 
TAD 
AND 
TAD 
QCA 
TRACE 
Orvoyv 
JMP 
LOQADO 
BREG 
JMS 
JMP 


4) 
TAD 


CLL RAL 


CLA 
TAD 


SPA S2L 
CMA CML 
SPA S2L 


AMBO 
JMP ft 


GeaPRer?2 


OEXT 


OEXT 
OL SW 


OLSW 
OMSW 


OMSW 
OLEFY 


MQEXT 
BEXT 


CARYIN 


COMREG 


FLOLV 
OMSW 
DIVC 
QUONEG 
PSTaT 
(7577 


(288 
PSTat 


EXIT 


QUONEG 
DVENO 


ACMSW 


FLAGL 


QUONEG 


135137 PAGE 54 


/GET EXT 
/SHIFT LEFT AND INSERT ZERO 


/GET SW 
ASHIFT LEFY AND {NSERY LINK 


/GET MSH ; 
/SHIFT LEP? AND ENSERT LINK 


/RETURN 


YES » MQ 70 B 
7040 EXTENSION 


/2ERO TO A 
/CLEAR CARRY IN PF 
/B TO 0 


/GET COMMAND REGYSTER 
/FIXEO POINT MODE ? 
JNO = GO TO FLOATING DIVIDE 


40 LESS THAN @? 

/NO@eCONTINUE 

/A = B IF QUOTIENT IS NEGATIVE 
/GET STATUS REG 

/SAVE OTHER BITS 

/SET FRAC OVERFLOW BIT 


/TRACING PROGRAM? == 
/YES@DIVIDF FP, OVERFLOW 
G0 TO EX!? 

48 70 0 $F SIGNS ARE LIKE 


JA @ B YF QUOTIENT JS NEGATIVE 
760 TO pEPAaSs!I? 

/GET FAC MSW 

/SAVE SIGN 

/GET OP SIGN 

AQP SIGN # FACtQ)? 


/NO#A MINUS B TO Q 
AZRETURN 


/ FRR FLOWS 


3747 
3732 
S751 
2752 
3753 
3754 
3755 
3756 
3757 
3742 
3761 
3742 
2743 
3764 
3765 
3746 
3767 
377g 


3772 
3773 
3774 
3775 
3776 
3777 


4565 
4545 
1221 
77232 
5356 
4773! 
2074 
4544 
4027 
1036 
7134 
7252 
1073 
7532 
7062 
7532 
4577 
5772 


4920 
4251 
4937 
2427 
0280 
7577 
4080 


DTALL 


FLOIV, 


VO2S 


NECO 
NECO 
TAD 
SMA 
JMP 
JMS 
1$z2 
LOAD 
BREG 
TAD 
Cb 
CLA 
TAD 
SPA 
CMA 
SPA 
AMBO 
JMP 


PAGE 


p 
p 


Cla 


0 


RAL 


SZ, 
CML 
S2Z\ 


6eAPRa¥2 


OMSW 


+3 
RARB 
SHREG 


ACMSW 


FLaGt 


DIVS 


ai, 


15157 PAGE 55 


/JDEC OP ADDRESS 
/OEC GP ADAR 


JO LT 27 

/NO 

AYES © SHIFT B REGHT 1 PLACE 
/INC SHFT CNTR 

/B TO O IF SIGNS ARE LIKE 


/GET FAC MSW 
/SAVE SIGN 


/GET OP SI6N 
/OP S{GN#FAC(O)? 


/NOeA MINUS B TO OQ 
/GO TO STATE 3 








/ FPP FLOWS 


440 
4994 
4972 
4933 
4gn4 
4905 
4026 
497 


42108 
4011 
442 
4213 
4214 
4015 
4016 
4917 
4220 
4924 
4922 


-_— 


4565 
6561 
3233 
3832 
3034 
4555 
4555 
5777) 


4564 
4563 
4573 
1251 
0376 
3825 
4546 
0265 
4576 
4543 
2921 


OFALL2 


DYVS, 


OVENS, 


FLOX, 
LOX, 


V283 


FSTEP 
GETOP 
OCA 
OCA 
OCA 
INCOP 
INCOP 
JMP 


ENTER 
FSTEP 
CLRA 
TAD 
ANO 
DCA 
LOADB 
XBADR 
APBO 
LOADOP 
OREG 


6eAPRe72 


MQLSW 
MQMSW 
MQGEXT 


DEP 


PIR 


(7 
ALSW 


135137 PAGE 56 


/STEP TO SPATE S$ 
/OUTBRK USING OP AdDR 
/MB TO MOLSW 

/GLEAR MOQ MSW 

/CLEAR MOA EXT 


/INC OP ADBR 
/GC TO DEPOSIT 


/ENTER LOX 
/STEP TO STATE 1 
4®@ TO AMSW 
/GET INSTRUCTION 


4X8 ADOR TO 8B 


fA PLUS 3 70 0 
/Q TO OP ABOR 


“ 


| J 
\ r 
is 


oe fee Ne 


om 


/ FPP FLOWS 


4293 
4324 
4325 
4226 
4927 
4232 
4934 


4232 
4233 
4034 
4035 


4236 
4937 
4249 
49414 
42742 
4343 
4944 
4945 
4246 
4947 
4350 
4951 
4982 
4253 
4954 
4985 
4956 


4957 
4962 
4961 
4f6e2 
40463 
4264 
4965 
4366 
4067 
42078 
4074 
4072 
4973 
4974 
4975 
42076 


4977 
4140 
444 
4422 


4563 
4362 
3025 
3024 
4553 
4544 
2024 


4563 
1922 
4537 
5775s 


4564 
4563 
3024 
1054 
2376 
3625 
4546 
0065 
4576 
4543 
0021 
4572 
1052 
7740 
5257 
1035 
4527 


4563 
1954 
2376 
7459 
3270 
1374 
3423 
1523 
7410 
1121 
4532 
1252 
7740 
5277 
1025 
3035 


4577 
1622 
SO74 
4346 


OLALs2 


LOX2, 


LOXS, 


FALN, 
ALNY, 


ALN2, 


ALN22, 


V238 


ESTEF 
GETPE 
ICA 
NCA 
INCPC 
LOADO 
AREG 


FSTEP 
TAD 
PUTX 
JMP 


ENTER 
FSTEP 
OCA 
TAD 
AND 
DCA 
LQA0B 
XZAQDR 
APBO 


LOaDOP 


OREG 
CLRB 
TAD 


SPA CLA 


JMP 
TAQ 
STORB 


FSTEP 
TAD 
AND 
SNA 
WMP 
TAD 
DCA 
TAD } 
SKP 
TAD 
STORA 
TAD 


SPA CLA 


JMP 
TAD 
Oca 


AMBO 
TAS 
DCA 
LOADB 


6eAPRale2 


ALSW 
AMSW 


OLSW 
FETCH 


AMSW 
PIR 
(7 
ALSW 


COMREG 


43 
ACEXP 


PUR 
(7 


45 
(X8 
Th 
Ti 


P2744 
COMREG 
ALN22 


ALSW 
ACEXP 


OLSW 
SHREG 


Am, 


13137 PAGE 57 


/STEP TO STATE 2 
JOUTSRK USEING FRE 
/MB TO ALSW 

/%@ TO AMSW 

SINC FPC 

4 70 0 


ASTEP TO STATE 8 


QO LSW TO INDEX REG 
/GO TQ FETCH 


/ENTER ALN 
/STEP TO SPATE 1 
/@ TO AMSW 
/GET INSTRUCTION 


JFIR 9e4i TO ALSW 
/X%8 ADDR TO B 


/A PLUS B TO 0 
/0 TO OP ABOR 


/@ 70 8 
/GET COMMAND REGISTER 

/0, P, MODE ? | 

/YES » DO NOT STORE EXPONENT 
/Fac EXP TO 8 LSW 

/SIGN EXTEND TO 8M8W 


STEP TO STATE 2 
/GET INSTRUCTION 


4X = @ ? 

YES e@ 27 FO A 

/GET PROGRAM INDEX REG 
/ZINSTEAD OF OUTBRK 
/CONTENTS OF X 


/GET OCTAL 27 

/MB OR 27 FO A 

/GET COMMAND REGISTER 
40, P, MODE 

/LEAVE EXP ALONE 


/MB TO FAG EXPONENT 


/A MINUS B TO 8 


/O TO SHIF? CNTR 
QO TO B 








/ FPP FLOWS 


4473 
4474 
44a5 
4196 
4447 
4412 
4411 
4142 
4443 
4444 
4415 
4116 
441147 
4420 


4124 
4172 
4473 
4174 
4175 
4176 
4477 





2821 
1224 
7712 
7042 
3273 
13573 
3225 
3224 
1273 
7640 
5322 
4577 
7442 
4576 


5772 
4280 
2027 
8280 
1236 
98087 
2852 
4288 


x 
wf 


Taui2 


V223 
CREG 


SPA CLA 
CMA 

cA 
TAD 
DCA 
OCA 
TAO 
SZA CLA 
JMP 
AMBO 
SKP 
APBQ 


NP AGE 
JMP f 


PAGE 


6eAPRe72 


OMSW 


FLAGS 
(27 
ALSW 
AMSW 
FLAGS 


1%3 


(,*20087608 


45137 PAGE 5794 


/O8 TO SHIFT O FF 


442 70 ALSW 
/SYGN EXTEND TO AMSW 


/SHFT OC FFa1i? 
“YES 
/NO#"A MINUS B TO 0 


A PLUS B FO Q 


am 


/ FPP FLOWS 


4240 
eae 
4222 
4223 
4204 
4245 
426 
4297 
4210 
4241 
4242 
$245 
4214 


42415 
4216 
4217 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4250 


4563 
1924 
7722 
5246 
4572 
5210 
4546 
1936 
4544 
1927 
4531 
3215 
3874 


4563 
1973 
7094 
7289 
1871 
7420 
7044 
SO74 
1973 
7652 
5232 
4532 
5246 
4533 
1036 
7742 
4534 
5244 
7240 
S821 
7248 
3822 
5246 
4544 
0927 
4547 
AQ21 
57771 


STALL2 


ANS, 


ALN4, 


AWNEND, 


FSTEP 
VAD 
RAL 
CLA 
TAD 
SNL 
CYA 
OCA 
TAO 


SNA CLA 


JMP 
SHFTO 
JMP 
SHF TB 
Tad 


SPA CLA 


SOEZ 
JMP 
STA 
OCA 
STA 
DCA 
JMP 
LOAQDO 
BREG 


LOADAC 


OREG 
JMP 


6eAPRe72 


OMSW 
+3 
+3 


ALN4 
SHREG 


FLAGS 
SHREG 
SHREG 
FLAGS 
+S 
ALNEND 
FACFR 


ALNEND#2 
OMSW 


OLSH 
143 


FETCH 


a 
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/STEP TO SPATE 3 
/O0@e1? 

/NO 

JYES «9 2 TO 8B 
/FAC FRAC 0 B 
7B T0 9 

1030? 


/NO#GO TO STATE 4. 
/YES=@ TO SHFT CNTR 


ASTEP TO SPATE 4 

“SAVE SHFT QO FF 

/GET SHFT ENTR 

/ADUYUST SHIFT CNTR FOR 182 


/SHFY O FFag? 
/YES eat 
/NO@SHIFTO UNTIL $40,588 


/SHIFT B UNTIL S\C% ee 
/GET FAC PRACTION 

/0 =» O AND FAG FR NEG ? 
/O 2» @ 7 

/NO = B TO 0 

/YES » LOGICAL 4 Ta 0 
/LOGICAL 4 TO OMSW 


/LOGICAL 4 TO OLSW 
/00 NOT MOVE B TA 0 
78 TO 0 


40 TO FAC FRACTION 


/GO TO FETCH 











7 FPP FLOWS 


4254 
4252 
4253 
4254 
4255 
4236 
4257 
4260 
4261 
4262 
4263 
4264 


4265 
4266 
4267 
4270 
4274 
4272 
4278 
4274 
4275 
4276 
4297 
4300 
4321 
43%2 
4383 
4324 
4345 
4326 
$307 
4312 
43i1 


om 


7030 
1927 
7110 
3827 
1832 
7819 
$238 
1234 
7010 
A376 
3834 
5654 


4564 
4563 
3024 
1054 
0375 
3225 
4546 
9965 
4576 
4543 
A021 
1252 
7700 
5340 
4546 
A236 
3071 
4774) 
5773! 
1035 
4527 


DIALi2 


RARS, 


FATX, 
ATX, 


VO9S 


Tad 
RAR CLL 
9C4 
TAD 
RAR 
mca 
Yad 
RAR 
AND 
OGA 
JMP f 


ENTER 
FSTEP 
DCA 
TAD 
AND 
OCA 
LOQADB 
XZADR 
APBO 
LOADOP 
OREG 
TAD 
SMA CLA 
JMP 
LQADB 
FACFR 
OCA 
JMS 
JMP 
TAD 
STORB 


Be APReF2 


SMSh 


BMSw 
BLSw 


BLSW 
BEXT 


(7488 


BEXT 
RARB 


AMSW 
PIR 


ALSW 


COMREG 


+6 


SHREG 
SETSTS 
ATX4 
ACEXP 


13137 PAGE 59 


/KEEP If 4 BITS LONG 


ZENTER ATX 

/STEP TO SPATE 1 
7@ Ta A MSW 

AGET INSTRUCTION 


/FIRGeLt TO ALSW 
/X@ ADDR TA 8B 


JA PLUS B f0 0 
/O0 YO OP AGBDR 


/GET COMMAND REG 
CFLOATING POINT? 


/YES 
/NOwFAC FRAC TO 8 


40 70 SHIF® ENTR 
/SET PROG STATE 3 
/GO TO STATE 4. 

/FAC EXP TO B LSH 
/SIGN EXTEND TO BMSW 


a~ 


/ FPP FLOWS 


4312 
4313 
4344 
4315 
4316 
4347 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4330 
4334 
4332 
4333 
4334 
4335 
4336 


4337 
4349 
4341 
4342 
4343 
4344. 
4345 
4346 
4347 
4350 
4351 
43532 
4353 
4354 
4355 


4372 
4373 
4374 
4375 
4376 
4377 


4563 
1372 
45232 
4577 
1222 
3274 
4546 
2024 
1824 
7712 
7842 
3873 
1372 
3825 
3024 
1973 
7652 
33536 
4376 
7418 
4577 


4563 
1824 
7788 
5346 
3827 
3032 
5350 
4546 
A936 
4544 
0227 
4534 
5773! 
3O71 
5773! 


7827 
4422 
6544 
A807 
7422 
1236 
4422 


SYAL12 


ATX2, 


ATXS, 


V033 


FSTEP 
TAD 
STORA 
AM3Q 
TAD 

OCA 
LOADB 
OREG 
TAD 

SPA CLA 
CMA 

DCA 

TAD 

OCA 

OCA 

TAD 

SNA CLA 
JMP 
APBO 
SKP 
AMBO 


FSTEP 
Tad 
SMA CLA 
JMP 
OCA 
BCA 
JMP 
LQa0B 
FACFR 
LOQADO 
BREG 
SQEz 
JMP 
DCA 
JMP 


PAGE 


6eAPRel2 


(27 


OL SW 
SHREG 


OMSW 


FLAGS 
(27 
ALSW 
AMSW 
FLAGI 


OMSW 


Tr 
BMSW 
BLSW 
a3 


ATX4 
SHREG 
ATX4 


Alin, 


135137 PAGE 62 


JSTEP TO STATE 2 


/27 TO ALSW «= @ TO ASW 
JA MINUS B TO 0 


/Q TO SHIF? CNTR 
/0 TO B 


/GET SIGN SF 0 


/08 TO SHFT 6 FF 


/27 TO ALSW 
48 TO AMSW 


ASHFT O FFat? 
/NO 
/YESeA PLUS B TO 0 


7A MINUS B TO 0 


/STEP TO STATE 3 


/O891? 
NO 
/YESe@ T0 8 


/FAC FRAC 70 B 
78 70 0 

/09g? 
/NOwGO TO STATE 4 


/YES=e8 TO SHFT ENR 
/G0 TO STATE 4 











/ FPP FLOWS Sy ALL2 


4449 
4471 
44n2 
4403 
4404 
4405 
4406 
4407 
4449 
4444 
4442 
4443 
4444 
4445 
4446 
4447 
4429 
4424 
4422 
4423 
4424 


4425 
4426 
4427 
4432 
4431 
4432 
4433 


we 


4563 AYX4, 
1273 
7642 
5224 
10974 
7044 
3274 
4533 
1836 
7742 
4531 
5224 
7248 
3021 
7248 
3822 
§225 
4544 ATX4aA, 
2027 
7449 
4532 


4563 ATX5, 
1822 
3905 
1022 
4537 
4579 
5797! 


V32S 


FSTEP 
TAD 


SZA CLA 


JMP 
TAD 
CIA 
OCA 
SHF TB 
TAD 


SPA CLA 


SOEZ 
JMP 
STA 
DCA 
STA 
DCA 
JMP 
LOADS 
BREG 
SKP 
SHF TO 


FSTEP 
TAD 
OCA 
TAD 
PUTX 
CMEME 
JMP 


6eAPRav2 


FLAGS 


ATX5a4 


SHREG 
SHREG 
FACFR 


ATX4A 
OMSW 


OLSW 
ATX5 


OLSW 
EMEM 
OLSW 


FETCH 


43937 PAGE 64 


/STEP TO SPATE 4 
/GET SHIFT O FF 

JSHIFT O FF =i? 

/YES 


/NEGATE SHYEFT ENTR FOR 1S2 


SHIFT B UNTIL S048 
/GET FAC FRACTION 

70 = @ & FAC FRAC NEG ? 
/O 28 ? 

/NO » B TO 0 


/LOGICAL 1 TO OMSW 
/LOGICAL 4 TO OLSW 
/GO TO STATE 5 

7B TO 0 (STATE 41) 
/SHIFT O UNTIL S.C aa 
/STEP TO SPATE 5 
/SIMULATE INBRK USING 
/PROGRAM MEMORY 


/PUT OLSW IN PROG INDEX REG 
/GOMPARE MEMORY 


/G0 TO FETCH 


oo 


\ 
Sona 


ictineeerd tt Perera he 


onesie 


~~ 


/ FPP FLOWS 


4434 
4425 
4436 
4437 
4443 
4444 
4442 
4443 
4444 
4445 
4446 


4447 
4459 
4454 
4452 
4483 
4454 
4455 
4436 
4437 
4462 
4464 
4462 
4463 
4464 
4465 
4466 
4467 
4472 
4474 
4472 


4364 
4563 
2824 
1254 
2376 
3825 
45346 
8865 
4576 
4343 
2024 


4563 
1854 
0376 
1375 
3183 
1583 
4527 
4544 
8027 
3074 
1852 
7710 
5270 
1121 
3235 
1835 
3033 
7242 
3984 
5774/4 


DIALIA 


FXTA, 
XTAL, 


XTA2, 


V233 


ENTER 
FSTEP 
ICA 
TAD 
ANO 
OCA 
LOADB 
XQADR 
APBO 
LOADOP 
OREG 


FSTEP 
TAD 

AND 

TAD 

DCA 

TAD } 
STORB 
LOADO 
BREG 
OCA 

TAD 

SPA CLA 
JMP 

TAD 

DCA 

TAD 

DCA 

STA 

DCA 

UMP 


6eAPRe72 


AMSW 
PIR 


ALSW 


PIR 


(X32 
Ti 
Ti 


SHREG 
COMREG 


35 
D27+4 
ACEXP 
ACEXP 
MQLSW 


MDFLAG 
DEP 


i, 


45137 PAGE 62 


ENTER XTA 
/STEP TO STATE 4 
/@ TO AMSW 
/GET [INSTRUCTION 


/FYR9eit TO ALSW 
/X® ADOR fa 8 


JA PLUS B TO 0 
/@ TO OP ASDOR 


/STEP TO STATE 2 
/GET INSTRUCTION 


/COMPUTE INDEX REG ADDR 

/GET PROG YNDEX REG INSTEAD 

JOF OUTBRK 

/MB TO BLSW = SIGN EXTEND TO BMSW 
78 To 0 


/O TO SHIF? COUNTER 

/GET de REGISTER 

/O, P, mMOoe 

/YES e TEAVE. EXPONENT ALONE 


(27 70 FAC EXP 


sPAC EXP TO MQ LSW 

44 TO MULTEPLY © OFVEDE FLAG 
/FOR USE IN DEPOSIT 

/GO TO pePasi? 








/ FPP FLOWS 


4473 
4474 
4475 
4476 
4477 
4542 
4531 
4542 
4523 
4594 
4545 
4536 
4597 
4540 
4541 
4542 
4343 
4544 


4515 
4516 
4517 
4520 
4524 
4522 
4523 
4524 
4525 
4526 
4527 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
4537 





4564 
4563 
1054 
2373 
7410 
7042 
3025 
3224 
4546 
2065 
4576 
4543 
3021 
7040 
3024 
7043 
3822 
5315 


4563 
1054 
0372 
7640 
5330 
4557 
3025 
3024 
4544 
9024 
5334 
4554 
4557 
7650 
4574 
4531 
8342 
4553 
5354 


MTAL12 VO8S 


JXNy 
JXNG, 


JXN2, 


JXN2A, 


ENTER 
FSTEP 
TAD 

ANDO 

CLI. RAR 
RYR 


“OCA 


DCA 
LQAOB 
XZADR 
APBOQ 
LOADOP 
OREG 
CMA 
DGA 
CMA 
DOA 
JMP 


FSTEP 


6eAPRe72 


PIR 
(78 


ALSW 
AMSW 


OMSW 


OLSW 
JXN2 


PIR 
(188 


JXN2A 
ALSW 
AMSW 


4s 


JXNS 
JXNEND 


43137 PAGE 63 


JENTER YXN 

/STEP TO STATE 1 

/GET INSTRUCTION 

/JEXTRACT BITS 628 


/FTR60e8 TQ ALSW 
4X3 ADORESS TO B 
/A PLUS B TO @ 
70 TO OP AfOR 


/LOGICAL 4 70 0 


STEP TQ SPATE 2 
/GEY JNSTRUCTION 
/EXTRACY BIT 5 
FIR 581? 

/YES 


/NO#OVTBRK USING OP ADOR 


/MB TO ALSW 
48 TO AMSW 
7a TO 0 


/REQUEST INC BRK (XeXxed) 


/GET X REG 
/OVERFLOW? 


/YES © LOGICAL @ TO 0 


/SKIP TF Qed 
/O NOT EQUAL @ 
ANC FPC 

/GO0 TO FETCH 


“ aN 


e t 
4 


/ FRPP FLOWS SPAL12 


4543 
4544 
4542 
4543 
4544 
4545 
4546 
6547 
4559 
4551 
4552 
4533 


4554 


4572 
4573 
4574 
4575 
4576 
4577 


4563 JXNZ, 
4562 
3825 
1254 
2376 
3924 
45464 
2224 
4543 
ZB24 
4542 
2044 


5977! JXNEND, 


M120 
2270 
2252 
8280 
2097 
1236 
46292 


VO2S 


FSTEP 
GETPE 
OCA 
TAd 
AND 
DCA 
LOADO 
AREG 
LOADOP 
OREG 
LOADPC 
OPADR 


JMP 


PAGE 


6eAPRe72 


ALSW 
PIR 
(? 
AMSW 


FE PCH 


ll, 


13137 PAGE 64 


STEP TO STATE 3 
/JOUTBRK USING FPS 
/MB TO ALSW 

GET INSTRUCTION 


/FYR9el1 TO AMSW 
fA 70 0 


/Q TO OP ABDR 
AQP ADOR TO FRE 


(G0 TO PETCH 











ee OO rr res 


i 


$9 39Vd 


geiet 


Cheudvag 


SOBA 


Ob7yIc 


SMO 4 





gda / 


ar eee 


/ FPP FLOWS 


4602 
4674 
4622 
4623 
46 m6 
4625 
4626 
4627 
4612 


4611 
4642 


463 


4644 
4615 
4646 
4647 
4620 
46214 


4622 
4623 
4624 
4625 
4626 
4627 


4630 
4634 
4632 
4633 
4634 
4635 
4636 
4637 
4640 
4641 


45464 
4553 
4346 
2054 
4544 
2927 
4343 
AB24 
$555 


4563 
4560 
S825: 
1051 
0377 
3824 
4553 
6544 
2024 


4563 
1844 
8377 
1376 
3086 
4555 


4563 
4242 
3807 
4565 
4567 
6543 
0021 
4542 
9044 
5775! 


STALL2 


JSR, 
JSRI, 


JSR2, 


JSRS, 


JSR4, 


VQIZ 


ENTER 
FSTEP 
LOADB 
PBASE 
LOADO 
BREG 
LOADOP 
OREG 
INCOP 


FSTEP 
GETPC 
DCA 
TAD 
AND 
DCA 
INCPE 
LQAQDO 
AREG 


FSTEP 
TAD 
AND 
TAO 
DCA 
INCOP 


FSTEP 
TAO 
DCA 
DECOP 
CMEMF 
LOADOF 
OREG 
LOAODPC 
OPADR 
JMP 


6eAPRe72 


ALSW 
PIR 


AMSW 


PFPC 


(1832 
MMEM 


PFPC#4 
LMEM 


FETCH 


13137 PAGE 664 


/ENTER JSR 
/STEP TO STATE 4 
/P@ ADDR Fa & 


48 70 0 
40 TO OP ABDR 
ZINC OP ADDR 


/STEP TO STATE 2 

/OUTBRK USING FPE 
/MB TO ALSW 

/GET INSTRUCTION 


AFIR9e41 TO AMSW 
ZINC FPC 
fk 70 0 


ASTEP TO SPATE $ 
/GET FPG FYELO Bits 


SEE UMK STATE Sad 
/SIMULATE {NBRK 
INC OP ADBR 


/STEP TO STATE 4 
ASIMULATE YNBRK 


JOEC OP ADBR FOR COMPARE 
/COMPARE MEMORY 
4Q TO OP AGBODR 


JOP ADR TO FRC 
/GO0 TO FETCH 











J FPP FLOWS 


4642 
4643 
4644 
4645 
4646 
4647 
4652 
4654 
4652 
46533 
4654 
4685 


4656 
4657 
4640 
4661 
4662 
4648 


4664 
4665 
4666 
4667 
4678 
46714 
4672 
4673 
4674 
4675 


4775 
4776 
4777 


4564 
4363 
$560 
3825 
1254 
2377 
3824 
4553 
4544 
8024 
4543 
AG24 


4363 
1041 
3377 
1376 
SQB6 
4355 


4563 
1842 
3207 
4565 
4567 
4555 
4555 
4542 
g044 
5775! 


1236 
1030 
2287 
5202 


OTAL2 


JSA, 
JSA2, 


JSAS, 


JSA4, 


V2I3 


ENTER 
FSTEP 
GETPC 
OCA 
TAD 
ANDO 
OCA 
INCPE 
LQADO 
AREG 


LOADOP 


OREG 


FSTEP 
TAD 
AND 
TAD 
DCA 
INCOP 


FSTEP 
TAO 

DCA 

DECOP 
CMEMF 
INCOP 
INCOP 


LOADPC 


OPADR 
JMP 


PAGE 


Be APReTe 


AL SW 
PIR 


AMSW 


PFPC 
(7 
(18308 
MMEM 


PFPCei 
LMEM 


FETCH 


135137 PAGE 67 


SENTER JSA 

/STEP TO STATE 2 

/OUTBRK USING FP 
MB TO ALSW 

/GEY {NSTRUCTION 


/FIR9e41 TO AMSW 
/ING FPC 
/&4 70 0 


/0 TO OP ABOR 


STEP TO STATE 3 

/SEE JSB STATE Sel 

/FPC F,8, 

/JAm 14930 @ JUMP ALWAYS 
/SIMULATE ENBRK 70 PROG MEMORY 
/INC OP ADOGR 


/STEP TO SPATE 4 

AGET FRC 

/SIMULATE {NBRK 

/DEC OP ADGR FOR COMPARE 
/COMPARE MEMORY FRACTION 
“RESTORE QP ADOR 

/INC OP AQOR Sore 402) 
/OP ADOR TO FRE 


G60 TO FETCH 


4 
¢ 


/ FPP FLOWS 


52D 
S224 
5292 


5903 
5o74 
5905 


5226 
3227 
3210 


3041 
5842 
5243 


5044 
5015 
3016 


5017 
5228 
5221 


5022 
2023 
5224 
3925 
3026 


2227 
5830 
3034 
5032 
5033 
3034 
3835 
3036 
3937 
5940 
5041 
5242 
3043 
5044 


4536 
5245 
S2e7 


4534 
5227 
5245 


4535 
2227 
5245 


4536 
5227 
5245 


4534 
5245 
5227 


4335 
5245 
5227 


7382 
1024 
7782 
5245 
5227 


4564 
4563 
4569 
3825 
1954 
0377 
3224 
4544 
ag24 
4543 
O24 
4542 
3044 
5776! 


JGE, 


JheEy 


JNEs 


JhTe 


JGT, 


JALe 


JTRVE, 
JTRUEL, 


V283S 


SAEZ 
unr 
JMP 


SALzZ 
JMP 
JMP 


SAGZ 
JMP 
JMP 


SAEZ 
JMP 
JMP 


SALZ 
JMP 
JMP 


SAG2 
JMP 
JMP 


CLA CLL 
TAO 
SMA CLA 
JMP 
JMP 


ENTER 
FSTEP 
GETPC 
DCA 
TAD 
AND 
DCA 
LOADO 
AREG 
LOADOP 
OREG 
LOADPC 
OP ADR 
JMP 


6eaPRev2 


JFALSE 
JTRUE 


JTRUE 
JPALSE 


JTRUE 
JFALSE 


JTRUE 
JFALSE 


JFALSE 
J TRUE 


JFALSE 
JTRUE 


OMSW 


JFALSE 
J TRUE 


ALSW 
PIR 
7 
AMSH 


FETCH 





lim, 


135137 PaGe 68 


/FAC=Q? 
/NO 
/YES 


/Fac GT ORsd? 
/YES 
/NO 


/FAC LT OReQ? 
/YES 
/NO 


/FAC3Q? 
/NO 
AYES 


/Fac LT 87 
/NQ 
/YES 


FAC GT 87 
/NOQ 
/YES 


/GET Q SIGN 
43S QO NEG 
/NO 

YES 


VENTER JMP CONDITION TRUE 
/STEP TO SYATE 2 

/QUTBRK USING PFC 

#MB TO ALSW 

/GET INSTRUCTION 


/FUR9eit TO AMSW 
/A TO 0 


/Q TO OP ABDR 
JQP ADOR TO FRC 
/GO0 TO FETCH 














/ Fpp FLOWS DIAL42 V2a3 6APRe72 43137 PAGE 69 
E245 4564 JFALSE, ENTER /ZENTER JMP CONDITION FALSE 
5246 4553 INCPC JING FPC 
5247 5776! MP FETCH /GO TO FETCH 
5959 4564 jh, ENTER VENTER JAC 
5251 4563 Jaci,  FSTEP /STEP TO STATE 1 
5252 4546 LOADA JFAC FRAC 70 8B 
5953 A936 FACFR 
5934 4544 LQaDe /8 TO 0 
5955 0927 BREG 
5256 4543 LOADOP /0 TO OP ASDR 
5037 2021 OREG 
5260 4542 LOADPC /OP ADOR To FP 
5g64 1044 OPADR 
5962 3776) JMP FETCH /GO TO FETGH 
5963 4564 FSTF, ENTER /ENTER STF 
5964 14952 TAD COMREG 
5965 8375 AND (3977 /RESET O,P" MODE FP 
5966 3052 OCA COMREG 
5967 5776! JMP FETCH /GO TO FETGH 
5270 4564 FSTD, ENTER /ENTER $TO 
S971 1882 TAO COMREG 
5972 7494 CLL RAL | 
5073 71430 STL RAR /SET O,P, MODE FF 
5974 3982 DGA COMREG 
5375 3776! JMP FETCH 7GO TO FETCH 
5076 4564 FNEG, ENTER /ENTER NEG 
8977 4563 NEGi,  FSTEP /STEP TO SPATE 4 
S172 1836 hae) ACMSW 
5101 7040 CMA 
S1n2 3024 OCA AMSW /COMPLIMENT FAC FRAC 
S483 1037 TAO ACLSW /TO A 
5194 7942 CMA 

—«$5 1085) «3025 OCA  ALSW 
5406 4544 LOADO fa 70 0 
5197 9824 AREG 
5140 4554 INCOR /o4 70 0 
S441 4547 LOADAC 0 TO Fat FRAC 
5142 0021 OREG 
5143 3776! JMP FETCH /GQ TO FETCH 
5144 4564 FNORM, ENTER /ENTER FNORM 
51445 4563 NORM4, FSTEP /STEP TO STATE 1 
5116 4546 LOADB /FacC FRAC f0 B 
5117 1036 FACFR 
5422 4544 LOADO 4B TO 0 
5421 3927 BREG 
5422 1035 TAD ACEXP /FAC EXP TO MQLSW 
5423 32933 DCA MOLSW 
E124 3074 NCA SHREG /@ TO SHIFT CNTR 

5125 S774! JMP OEP /G60 TO DEPOSIT 





+ 


/ FPP PLOWS 


5126 
5127 
51432 
5134 
5432 
5433 
5434 
5135 
5136 
5137 
514g 
5141 


5442 
5143 
5144 
5445 
5146 
5447 


3152 
3154 
3132 
5153 
5134 
5155 
5156 


5437 
5160 
5141 
5162 
5163 
5464 
5165 
5146 
5467 


7472 
51473 
5174 
5175 
5176 
5477 


4544 
4363 
4773! 
2161 
ABAD 
1126 
3133 
7242 
3126 
1195 
0372 
3105 


4563 
1193 
3106 
6555 
7282 
5776! 


4564 
3936 
3237 
1252 
7722 
3835 
57764 


4564 
45463 
4569 
3955 
1254 
0377 
3254 
4553 
5776! 


A377 
7313 
2052 
3777 
1236 
2207 
5220 


SJAud¢e2 


FPAUSE, 


PAUS2Z, 


PAUSG, 


FOLAs 


SETB, 
SETB4, 


V233 


ENTER 
FSTEP 
JMS 
TPAUSE 
a 

TAD 
ACA 
STA 
OCA 
TAD 
ANDO 
DCA 


FSTEP 
TAD 
OCA 
FPST 
NOP 
UMP 


ENTER 
DCA 

OCA 

TAD 

SMA CLA 
OCA 

JMP 


ENTER 
FSTEP 
GETPC 
QCA 
TAO 
ANO 
DCA 
INCPC 
JMP 


PAGE 


SBweAPReI2 


TYP 


STEPSW 
be 


STEPSW 
CSTATE 
(397 

CSTATE 


Ta 
STEPSW 


FETCH 


ACMSW 
ACL SH 
COMREG 


ACEXP 
FETCH 


PBASEe4 
PIR 

(7) 
PBASE 


FETCH 


15137 PAGE 78 


ENTER PAUSE 
/STEP TO STATE 4 
/TYPE FPP PAUSE 


/SAVE SINGLE STEP SWITCH 


SEY SINGLE STEP Sw 
/RESET PROG MAJOR STATE 


/WAYT FOR OPERATOR 
/RESTORE SINGLE STEP SWITCH 


/RESTART FPP 
/GO TQ FETCH 


/ENTER CLA 
/@ TO Fac 


/GET YHE COMMAND REGISTER 
/0,P, MODE ? 

/NO = CLEAR THE AC EXPONENT 
/GO TO FET@H 


/ENTER SET BASE 
/STEP TO STATE 1. 
/QUTBRK USING FRE 
/MB TO PO ADOR 
/GET INSTRUCTION 


/FYR9e1i To Pg Fi Bt 
SINC FPC 
/GO TO FET@H 


/ FPP FLOWS 


2222 
2241 
5222 
5273 
5224 
5225 
5226 
5227 
5218 
D244 


5242 
3243 
5244 
5245 
5216 
3217 
3220 
5221 
5222 
5223 
5224 


5225 
5226 
2227 
5232 
3234 
7232 
3233 
5234 


7235 
5236 
5237 
524 
5244 
5242 


5243 
5244 
5245 
5246 


4554 
4563 
45462 
32366 
1051 
6377 
3065 
4553 
4541 
57764 


4364 
4563 
3824 
1254 
2377 
3825 
4346 
2865 
4576 
4343 
2021 


$363 
10531 
8377 
1857 
3188 
1583 
3038 
3827 


4363 
4568 
3825 
3824 
4553 
4576 


4563 
1022 
4537 
5776! 


| OTALI2 


SETX, 


SETX4, 


ADOX, 


ADDX4, 


AQDDX2, 


ADOXS, 


ADDX4, 


VOO8S 


ENTER 
FSTEP 
GETPC 
DCA 
TAD 
ANDO 
DCA 
INCPC 
MOVEX 
JMP 


ENTER 
FSTEP 
DCA 
TAD 
AND 
DCA 
LQADB 
XBADR 
APBOQ 


LOADOP 


OREG 


FSTEP 
TAD 
AND 
TAD 
OCA 
TAD f 
OCGA 
DCA 


PSTEP 
GETPC 
DCA 
DCA 
INCPE 
APBO 


FSTEP 
TAD 
PUTX 
JMP 


6eAPReFe 


XZADRe4 
PIR 

(7 
XZADR 


FETCH 


AMSW 
PIR 
(7 
ALSW 


PIR 
PXP 
Th 


BLSW 
BMSW 


ALSW 
AMSW 


OLSW 
FETCH 


13137 PAGE 74 


ENTER SET X 
/STEP TO STATE 1 
/OQUTBRK USING FPC 
/MB TO X@ ADDR 
/GET JNSTRUCTION 


/FIRGeti TO xo FB’ 
JING FPC 

/SET PROGRAM INDEX REGS 
/GO TO FETCH 


7ZENTER ADOX 
/STEP TQ STATE 1 
/@ TO AMSW 
/GET INSTRUCTION 


/FIR9aii TO ALSW 
/X@ ADOR TO B 


/A PLUS B TO 0 
40 TO OP ADR 


/STEP TO STATE 2 


/GET PROGRAM INDEX REG INSTEAD 
/OF OUTBRK USING Of ADOR 


/MB TO BLSW 
/@ TO BMSW 


/STEP TO SPATE 3 
/QUTBRK USING FRE 
78M TO ALSW 

/@ TO AMSW 

/INC PFC 

/A PLUS B TO 0 


JSTEP TO STATE 4 


QO LSW TO X REG 
/GO TO FETCH 


a 


oe 





a LN rent Aiea Hett 


‘ai. 


\ 
\ 


/ Fee FLOWS 


2247 
250 
2254 
5252 
5253 
5234 
5255 
5236 
5287 


3268 
3264 
526 2 
‘BAGS 


5264 
5265 
3266 
5267 
5270 
5274 
3272 


5273 
5274 
3275 
5276 
3277 
3300 
5304, 
3382 


3323 
5384 
3385 
3386 


3387 
3312 
3344 
5312 
3313 
3314 
5345 
5316 


5376 
5377 


4564 
4563 
1252 
7712 


5.262 


1235 
$205 
4572 
4555 


4368 
1236 
3226 


A555 


4563 
4237 
3207 
4565 
4567 
4555 
5776! 


4564 
4563 


NTAL12 


FSTA, 
STAQ, 


STAL, 


STA, 


FLOA, 
LDA, 


LDAL, 


LOA, 


PAGE 


Gm APRe72 


COMREG 


STad 
ACEXP 
EMEM 


ACMSW 
MMEM 


ACLSW 
LMEM 


FETCH 


COMREG 
LDad 
ACEXP 


AMSW 


ALSW 


FETCH 


Millie, 


13137 PAGE 72 


/TYPE ENTER FSTA 

/STEP TQ MAJOR STATE 2 
/GEY COMMAND REGISTER 
JO, FP. MODE ? 

/YES = GO TO STATE 4 
JINBRK USING OP ADDR 
/FAC EXP TO MB . 
/COMPARE MEMORY EXPONENT 
/INC OP ADBR 


/STEP TO MAJOR STATE 2 
/INBRK USING OP ADBR 
/FAC MSW TO MB 

/INC OF ADDR 


/STEP TO MAJOR STATE 2 
/INBRK USING OP ADBR 
/FAC LSW TO MB 
/DEC OP ADAR FOR COMPARE 
/COMPARE MEMORY 

/RESTORE OF ADOBR 

4GO0 TO FETCH 


/TYPE ENTER LDA 
STEP TO STATE O 
/GET COMMAND REG{STER 
/Q, P, MODE ? 

/YES » GO 70 STATE 4 
/OUTBRK USING OP aBor 
/MB TQ FAG EXP 


/STEP TO MAUOR STATE 1 
/QUTBRK US{NG OP ABOR 


/STEP TO MAJOR STATE 2 
/OUTBRK USING OP aBoR 


f& 70 0 
/Q TO Fac PRAC 














/ FPP FLOWS 


E47] 
S44 
5402 
5403 
£424 
5495 
5426 
5427 
54410 
5441 
5412 
5443 
5414 
5415 
5416 
£447 
5420 
5421 
3422 
5423 
5424 
5425 
3426 
5427 
5439 
5431 


8432 
5433 
5434 
5435 
5436 
5437 
5440 


3441 
5442 
$4463 
5444 
5445 
5446 
5447 





2022 
6552 
1377 
S010 
3125 
1449 
7452 
560g 
3041 
1442 
3247 
3444 
2247 
5243 
5205 
LY: 
ogee 
7760 
8908 
TL 
7302 
2045 
7432 
2044 
7908 
5623 


2098 
7388 
2042 
7448 
20414 
7020 
5632 


2020 
7320 
2050 
7412 
2047 
7282 
5641 


OTALL2 


7 MINE SOQUTINES 


FCLR, 


FCLRA, 


CLROET. 
CLAT, 


INCi, 


INC2, 


INCS, 


VO23 


2 
FRIC 
TAO 
DCA 
DCA 
TAQ 
SNA 
JMP 
DCA 
YAO 
DCA 
DCA 
1$z 
JMP 
JMP 
8 
REGS 
eed 
g 

g 
CLA 
1$2 
SKP 
1S2 
NOP 
JMP 


CLA 
1$z 
SKP 
1$2 
NOP 
JMP 


LA 
1S2 
SKP 
1$2 
NOP 
JMP 


L 


CLL 


Ch 


Chl 


6eaPRal2 


(TRS) 


OPADRed 
OPADR 
INCL 


PFPCed 
PFPC 
INC2 


PAPTet 
PAPT 


INC3 


13137 PAGE 73 


/CLEAR FPP AND PROGRAM REGS 
JCLEAR FPP 
JGET ADDRESS OF TABLE 


/GET ADDRESS 
7ENO OF TABLE? 
/VES@EXIT 

/NO@SAVE ADDRESS 
/GET COUNT 

/SAVE COUNT 

/CLEAR LOCATION 
7END? 

/NO ; 
/YES@GET NEXT ADOR 


/ADOR OF FPP REGS 


/JNCREMENT OP ADDR 
/OP ADOR 

7QP FLO 

/RETURN 
/UNGCREMENT FPC 
/FPC ADOR 

AFPC FIELD 
/RETURN 
/INCREMENT ADRS 
/APT ADDRESS 
/APT FIELD 
ZRETURN 


fecretacs Lede lana 


by wes 


/ 


MINE ROUTINES 


5452 
5454 
5452 
3453 
5454 
3455 
3456 
5457 
5462 
3461 
5462 
3463 
5464 


5465 
5466 
5467 
5472 
5474 
5472 
5473 
5474 
5475 
5476 
5497 
5502 


5504 


5576 
53577 


(TAS) 


7320 
7232 
6565 
3344 
14324 
7044 
4252 
7652 
5652 
1252 
4776! 
2025 
5652 


3882 
1324 
7589 
5276 
7404 
7642 
5276 
1222 
7642 
2265 
7392 
5665 


20280 


73417 
5417 
5689 


APTC, 


SPECFL, 


NOFLOWs 


SAVAPT, 


DITALL2 


2 
CLA 
RAPT 
NCA 

TAD 

CYA 

TAD 

SNA CLA 
JMP I 
TAD 

JMS 
ERROR 
JMP } 


p 

TAD 

SMA 

JMP 

CLI RAL 
SZA CLA 
JMP 

TAD 

SZA CLA 
{SZ 

CLA Cll 
JMP 


PAGE 


V283 


SAVAPT 
SAVAPT 


PAPT+i 
APTC 
APTC 
ERR 
2005 
APTC 
OMSW 
NOFLOW 
NOFLOW 
OL SW 
SPECFL 


SPECFL 


Ge APRHT72 13137 PAGE 74 


/COMPARE APT ABDRESS 


/GET APT ABDOR FREM FPP 
/SAVE FOR ERROR REPORT 
ARESTORE AE 


/COMPARE WETH PROGRAM ADDR 
/APT ADDR 6K? 

/RETURN 

/GEY RETURN ADDRESS 

/TYPE ERROR DATA 

/ADDORS ERROR COOF 

/RETURN TO MAIN PROGRAM 


/SPECTAL OVERFLOW GONDITION 


/}S O NEGATIVE ? 

/NO @ RETURN #& 4 

sMOVE SIGN TO LINK 

/ARE ALL OFHER BETS OF MSW 2 ? 
/NO @ RETURN # 14 

/YES @ CHECK LSW - 

/DOES 0 a 4999 gage ? 

/NO = RETURN #* 4 


/RETURN 














/ 


MINT ROUTINES 


5682 
5681 
5682 
5683 
9684 
5625 
5686 
5627 
5610 
5614 
5612 
56135 
5614 
5645 
5616 
7617 
5620 
5624 
5622 
5623 
3624 
3625 
5626 
5627 
5630 
5631 
3632 
5633 
5634 
5635 
3636 
5637 
5640 
3644 
5642 
7643 
3644 
5645 
5646 
5647 
5632 
5651 
5652 
5653 
5634 
5655 
5656 





(TRS) 


A002 
6034 
7412 
47774 
7240 
1222 
7044 
1113 
7649 
5214 
4574 
5776! 
4447 
7640 
4775/ 
7240 
3117 
1120 
7649 
4774l 
7240 
3120 
7604 
373 
7642 
52350 
1196 
7649 
5250 
7240 
1222 
7041 
1114 
7640 
5274 
7040 
3106 
4772/4 
2626 
2020 
4774/4 
5600 
2652 
4772! 
2652 
O20 
4777! 


STEP, 


SSTEP, 


DTALL@ 


KSF 
SKP 
JMS 
STA 
TAD 
CYA 
TAQ 


SZA CLA 


JMP 
CLEAR 
JMP 
TAQ 


SZA CLA 


JMS 
STA 
OCGA 
TAD 


SZA CLA 


JMS 
STA 
DCA 
LAS 
ANO 


SZa CLA 


JMP 
TAD 


SZa CLA 


JMP 
STA 
TAD 
CIA 
Tad 


Sf4 CLA 


JMP 
CMA 
DCA 
JMS 
INSTEP 
JMS 
STEP 
ADDR 
JMS 
ADDR 


JMS 


V883 


KEYCK 
STEP 
EXADDR 
1% 


INIT 
CKO 


COMPO 


CKO 
CKQP 


CKOPAD 
CKOP 
(480 


SSTEP 
STEPSW 


SSTEP 
STEP 
ENTSTP 
STEPGO 
STEPSW 
TYP 
ASE 


TYP 


KEYCK 


13137 PAGE 78 


AGET EXT? ADDRESS 


/GOMPARE WITH RETURN ADORESS 
JEXtT AT THIS ADORESS ? 

/ 

/YES » CLEAR FPP AND REGISTERS 
7G0 TO INJATE 

/CHECK O FLAG 

/CHECK 0 REG ? 

/YES 


/SET FLAG FOR NEXT STATE 
/CHECK OP ADDR FLAG 
/CHECK OP ADDR ? 

AYES 

/SET FLAG POR NEXT STATE 
/GET SWITCR 8 

/tS SWITCH 3 SET 7 

7YES e GO TO SINGLE STEP 


ASINGLE STEP MODE 

/YES 

/GET RETURN ADDRESS 

/COMPARE WITH ENTER STEP ADDR 


ENTER STEP MODE 7 
ANO 


AYES a SET STEP SWITCH 
/CONVERT RETURN ADBR TO Aset! 
/TYPE RETURN ABDRESS 


AWAIT FOR FTY INPUT 


/ 


am 


MINE ROUTINES 


5657 
56640 
5664 
5662 
5643 
5664 
5665 
5666 
5667 
5672 
5671 
5672 
5673 
5474 
5675 
5676 
5677 
57Aa2 
5704 
5722 
5723 
8784 


(TRS) 


7242 
1226 
7041 
1115 
7642 
5271 
4770/ 
2636 
2048 
3126 
4125 
1373 
3425 
477G 
7612 
5302 
1222 
4767+ 
2008 
6561 
738 
5600 


STEPGO, 


DIALL2 


STA 
TAD 
CTA 
ra 


SZ4 CLA 


JMP 
JMS 


OUTSTP 


2 

OCA 
TAD 
TAD 
DCA 
JMS 


SKP CLA 


yMP 
TAD 
JMS 
ERROR 


PMAINT 
CLA ChL 


JMP 


V883 


STEP 
EXSTP 


STEPGO 
TYP 


STEPSW 
CSPATE 
(490 

CSTATE 
MSTATE 


+4 
STEP 
ERR 

200 


STEP 


_ 


13137 PAGE 76 


/GET RETURN ADDRESS 


/EXTT STEP ADDRESS 
/EXTT STEP MODE ? 
/NO 


7ZEXTT STEP MODE 
AYES » RESET STEP SWITCH 
ZINC, CURRENT STATE REC 


/CHECK STATES 

/STATE ERROR 

/STATES OK 

/GET RETURN ADDRESS 

GO TO ERROR ROUTINE 
/TIME STATE ERROR EOQDE 
/STEP FPP TO NEXT STATE 





/ 


MIN? 


RQUTINES 


5785 
3746 
5707 
S712 
5744 
3712 
5743 
3714 
5745 
5716 
3717 
5722 
5721 
5722 
5728 
3724 
5725 
5726 
3727 


5730 
3731 
5732 


3754 
3755 
3786 
3787 
5740 
37464 
3762 
9763 
3764 
3765 
3766 
3767 
5770 
5774 
5772 
5778 
3774 
3775 
5776 
5777 


(TRS) 


1766! 
2365 
1364 
745g 
5763! 
1362 
7459 
5321 
1361 
7652 
576g! 
57571 
1330 
3756/ 
1334 
3785 / 
1332 
3754! 
5756! 


6441 
2704 
7380 


4947 
4016 
4815 
8432 
7602 
7764 
7777 
770 
7775 
4877 
8345 
73547 
6000 
7346 
7343 
420 
6320 
6120 
1264 
2250 
6482 


TREXIT, 


ERY, 
ER2, 
ERS, 


DUAL 


TAO 
ANS 
TAO 
SNA 
JMP 
TAD 
SNA 
JMP 
TAD 
SNA 
JMP 
wMP 
TAD 
OCA 
TAD 
OCA 
TAD 
DCA 
JMP 


6144 


B704 
7380 


PAGE 


12 


CLA 


VOOS 


ASCCH 
(77 
(#3 


7780 
(ef 


+5 
(44 


7682 


DOTERR 


ERA 
4015 
ER2 


13437 PAGE 77 


/GET ASCII CHARACTER 
/STRIP TO 6 SITS 


JONTREL C ? 
/JYES © RETURN TO DTA MONITOR 


/ONTRL D7 _ 
YES @e SETUP TO READ IN DIAL 


/CONTRL P 7 

/YES @ RETURN TO PSe8 MONSTOR 
/YLLEGAL INPUT | 

/MOVE DIAL LOADER %O 

74045 FOR TAPE REAG 

/INTO PROPER LOCATION 

AND AUTO START 


/READ OLAL TAPE ANB EXECUTE 
ALINE 


/RCG 
/BLOCK NUMBER 


Ste, el A ee 


Fisiey vaghesaienasnes ttsel a stpeceadccmninnnnctinreitil 


/ 


: a 
\ = 
\ 


MINE ROUTINES 


6242 
6074 
éQ%2 
6223 
6226 
6045 
6296 
6027 
6212 
681i 
6212 
6015 
6014 
6015 


6916 
6017 
6228 
6921 
6822 
6923 
6924 
6925 
6926 
6927 
6038 
6031 
6932 
6033 
6934 
6235 
6036 
6237 
6042 
60414 


(TRS) 


2028 
7922 
1125 
2377 
32E2 
6562 
2377 
$081 
1221 
7P44 
1828 
7652 
2282 
5686 


2089 
7240 
1246 
4261 
8049 
S880 
7240 
1223 
4263 
8935 
ag08 
7240 
1230 
4261 
4320 
2280 
7240 
1235 
4264 
2023 


MSTATE, 


TOPC, 


TOQAC, 


700, 


TOA, 


DYALL2 


VIG3 


13137 PAGE 78 


/CHECK MAJOR STATE REGISTER 


y 


CLA Cll. 


TAD 
AND 
DCA 
RSTATE 
AND 
OCA 
TAD 
CYA 
TAD 


SNA CLA 


1S2 
JMP 1 


g 

STA 
TAO 
JMS 
PFPCed 


STA 


JMS 
AMSWed 


CSTATE 
(7774 
MT¢ 


(7774 
MT2 
MT 


MP4 


MSFTATE 
MSTATE 


TOPC 
LOAD 


TOAC 
LOAD 


T00 
LOAD 
LOEX? 


TOA 
LOAD 


/GET PROGRAM STATE GENERATOR 


/DELETE BITS 18 @ i4 
/SAVE FOR ERROR 
/READ STATE FROM FPP 
/JDELETE B8Y*S 10 8 TL 
/SAVE FOR FRROR 


/GOMPARE WITH PROGRAM STATE 
/1S MAJOR STATE OK? 
/YESeRETURNGY 

/LOAD THE PPC 

/GET RETURN ef 


ZADORESS OF FPC 
ALOAD THE Fac 


/GET RETURNed 


/ADOR OF FAC 
/L0A0 THE OREG 


/GET RETURNS 


/ADOR OF 0 
/LOA0 THE A REG 


/GET RETURNed 
/ADOR OF A 








/ MINE ROUTINES 


6242 
6243 
$344 
§245 
6246 


6247 
6252 
6051 
6252 
6253 


6254 
6955 
6256 
6257 
649 
661 
6362 
6963 
6964 
6365 
6966 
6967 
6072 
6971 
6972 
6g73 
6974 
6g75 
6276 
6077 
6140 
6101 
6182 
6103 


(TR3) 


ABA 
7240 
1242 
4261 
2026 


2080 
724@ 
1247 
42614 
2O34 


6000 
7249 
1254 
4264 
0043 
000 
3040 
7360 
1440 
3041 
1661 
2376 
3042 
1441 
3442 
1444 
3442 
1664 
7748 
1441 
8375 
3442 
7300 
5440 


TOR, 


TOM, 


TOOP, 


LOAD, 


DIALLO 


5 

STA 
TAD 
JMS 


RMSWel 


a 
£ 


STA 
rad 
JMS 


MQREGed 


Ms 

STA 
TAD 
JMS 


OPADRed 


a 

DCA 
STA 
TAd 
OCA 
TAQ 
AND 
DCA 
TAD 
OCA 
TAD 
OCA 
TAD 
SPA 
TAO 
AND 


STL 
! 


I 


LA 


onan CO) oe 0-0 ae ea O-w 


OCA f 


CLA 
JMP 


Cul 
! 


V883 


708 
LOad 


TOMQ 
LOAD 


TOOP 
LQAD 


43,37 Pace 79 


/LOAD THE & REG 
/GET RETURNed 
/ADOR OF B 


/ADOR OF MA 
/,0AD OP ABDR 
/GET RETURNeY 
/ADOR OF OP ADDR 
/SAVE RETURN 


/GET FROM ADDR 
/SAVE FROM ADOR 
/GET TO ADSR 


/GET MSW 
/STORE MSW 
/GET LSW 
/STORE LSW 


/LOAD EXT 9 
/YES @ GET THIRD WORD 
/SAVE 4 BITS ONLY 
/CLEAR OR LOAD ExT 


ect a enienetitcmnes te 


a ta ee 


H A 
‘ 


/ MINE ROUTINES (TRB) 


61274 
6175 
6476 
6437 
6112 
6441 
6112 
6143 
61144 
6115 
6116 
6117 


6122 
6121 


6122 


6423 
6124 
6125 
6126 
6127 
61432 
6131 
6132 
6133 
6134 
6135 
6136 
6137 
6149 
6141 
6142 
6143 


7920 
1244 
7424 
7026 
1954 
7494 
7086 
1065 
7404 
7006 
1044 
5794 


A889 
72280 
6563 
3982 
6564 
3903 
1982 
7044 
1021 
7649 
5340 
1983 
7041 
1022 
7659 
5729 
4774! 
4773! 
OG21 
5720 


APTPAC, 


COMPO, 


ORERR, 


OT ALLe 


2 
rad 


RAL CLL 


RTL 
Tad 


RAL Cl 


RTL 
TAC 


RAL Chi 


RTL 
TAO 
JMP f 


CLA 
ROMSW 


ROLSW 
DCA 
TAO 
CTA 
TAQ 


SZA CLA 


JMP 
7Ad 
CIA 
TAQ 


SNA CLA 


JMP 
TAD 


ERROR 
JMP { 


V283 


OP ADR 


PBASE 


XZADR 


PFPC 
APTPAC 


SAVOM 


SAVOL 
SAVOM 


OMSW 


ORERR 
SAVOL 


OLSW 


COMPO 
STEP 
ERR 
8021 
COMPO 


maa. 


43137 PAGE 62 


/JPFIELD BITS OF OP ADOR 
/FIELD BITS OF PA ADOR 
/FIELO BITS OF X”% ADOR 


/FIELO BITS OF FPC 
/RETURN 


/READ OMSW FROM FPP 


/COMPARE WITH PROG OMSW 
71S OMSW CORRECT? 
/NO = GQ TO ERROR 


/COMPARE WITH PROG OLSW 
/1S OLSW CORRECT? 
/RETURN 





7 MINE ROUTINES (783) 


6144 
£145 
6146 
63147 
6152 
6151 
6152 
6153 
6454 
6155 


6156 
6487 
6162 
61614 
6162 
64463 
6164 
6165 
6166 
6167 


6473 
6174 
6175 
$176 
64177 





ABAD 
7122 
7512 
7122 
3225 
7432 
7242 
3224 
3826 
5744 


2282 
7100 
7540 
7120 
3232 
7430 
7242 
3027 
3031 
5756 


7317 
5622 
7490 
3777 
7774 
6292 


STRA, 


STRB, 


DT ALI¢ 


2 


CL 
SPA 
Stl 
DGA 
SZ\, 
STA 
OCA 
DCA 
JMP I 


‘4 

CLL 
SPA 
STL 
OCA 
Sz. 
STA 
OCA 
DCA 
JMP 1 


PAGE 


V823 


ALSW 


AMSW 
AEXT 
STRA 


BLSW 


BMSW 
BEXT 
STRB 


43137 Pace Bf 


CHECK SIGN 
/SAVE SIGN IN LINK 
/STORE LSW 

JWAS LSW MENUS 7_ 

/YES e MSW = 7777 


/CLEAR EXT 
/RETURN 


/CHECK SIGN 
/SAVE SIGN IN LINK 
/STORE LSW 

/WAS SIGN MINUS ? 

/YES @ MSW 8 7979 


/CLEAR EXT 
/RETURN 


- a 


i 


Z MIND ROUTINES (783) STALL2 V2as3 GeAPRo72 13137 PAGE 82 : 


242 7822 SETUP, 2 


§2%1 7242 CLA 

6272 1377 rAd (SETTABOd /GET ADDRESS OF TABLE 
6243 3042 NCA 10 

$294 6241 cOF 10 

4295 1442 TAD 1 42 /GET MAJOR STATE WORD 
6276 3125 OCA CSTATE 

6247 1412 TAD 1 8612 /GET TEXT ADOR 

6242 3233 NCA ENTTXT 

6241 1412 TAD 1} 8 40 

6242 7449 SZA 

62143 5245 JMP +2 

6214 5242 JMP BADNWS /SOMETHING 1S WRONG 
62u5 7041 CIA 

6246 1208 TAD SETUP /CHECK FOR PROPER ADDRESS 
62147 7640 SZA CLA 

6228 5204 JMP SETUP +4 

6291 6201 cOF ag /RESET PROGRAM FIELD 
6222 7604 Las . 

6223 376 AND (180 /GET SW 5 

6224 7649 SZA CLA /TRACING PROGRAM ? 
6225 5232 JMP ENTYP /YES » TYPE ENTER 
6226 7604 LAS 

6227 A375 ANO (280 GET SW 4 

6239 7650 SNA CLA /STOP ON ENTER ? 

6231 5682 JMP $ SETUP /NO @ RETURN 

6232 47744 ENTYP, JMS TYP /TYPE ENTER 

6233 2749 ENTYXT, CRLF 

6234 8989 ", 

6235 7604 Las 

6234 8375 AND (282 /GET §W 4 

6237 7640 SZA CLA /STOP ON ENTER ? 

6248 4773! JMS KEYCK /YES © WAIT FOR KEYBOARD INPUT 
6241 3602 JMP $ SETUP 

6242 6204 BADNWS, COF a2 

6243 7482 HLT /PROGRAM MUST BE RE LOADED 
6244 5243 JMP ,o4 


6245 8062 ESTOP, 2 














/ 


MINE ROUTINES 


$246 
6247 
6252 
6251 


4282 
6253 
$234 
6255 


6256 
6257 
$269 
6261 


6262 
6263 
6264 
6265 
6266 
6267 
62796 
6274 
6292 
6273 
6274 
6275 
6276 
6277 
6382 
6301 
$382 
6323 


(TRS) 


OdO2 
4262 
2047 
5646 


2008 
4262 
2044 
3652 


2020 
4262 
0044 
5656 


2020 
7280 
1662 
3183 
2262 
1543 
2183 
8372 
7426 
704 
1371 
S388 
1583 
3183 
6201 
1508 
62314 
5662 


CAPT, 


GPC, 


CoP, 


GET, 


DIALL2 


‘4 

JMS 
PAPT 
JMP } 


2 
JMS 


CLL RTL 


V2a35 


GET 


GAPT 


GET 
GPC 


GET 
GOP 


43437 PAGE 83 


/OUTBRK USING ADSRS 
GET DATA 
/DATA ADDRESS 


/OUTBRK USING FPC 
/GET DATA 
/ADDRESS OF DATA 


/OUTBRK USING OP ABDRESS 
/GET DATA 
/DATA ADDRESS 


/GET DATA 


/GET ADDRESS REGISTER 

/SAVE 

/INCREMENT RETURN 

GET FIELO BITS | 

JING TO RIGHT HALF OF REGISTER 
43 BITS ONLY 

/MOVE 3 BITS LEFF 


CREATE COF INST 

/GET ABSOLUTE ADORESS 
/SAVE _ 
/CHANGE TO CORRECT FELD 
/GET DATA 


RESTORE OAbTA FIELO 
ARETURN 


hen, eh 


a~ a, aa : 


7 MINE FOSTINES ¢7R3) DIAL1@2 V2e3 be APRe72 13437 PAGE 84 


/CHECK SROS 


“374 2920 TRSKP, 2 


$325 7634 LAS 

4326 2376 ANDO (182 GET SWITCH 5 

$327 7652 SNA CLA YS SWITCH 5 SET ? 
6312 5316 JMP 1%6 JNO @ BYPASS YYPFOUT 
6311 1704 TAD ? TRSKP /GEY FEXT ADDRESS 
63i2 33144 OCGA 1*2 

6313 4774! JMS TYP 

6314 72008 g 

6315 2022 g 

6316 2394 $2 TRSKP 

6347 5724 JMP 3 TRSKP 


/CHECK OP ADDRESS 
6320 2982 CKOPAD, @ 


6324 7222 CLA 

6322 6566 RDOP /GET OF ADOR FROM FPP 
6323 3121 OCA SAVOP /SAVE FOR TYPEOUT 

6324 1945 TAO OP ADRed /GET PROGRAM OP ADGR 
6325 7041 CIA | 

6326 1121 TAD SAVOP /COMPARE THE ADDRESSES 
6327 7652 SNA Cha /FPP OP ADOR CORREET ? 
6339 53722 JMP $  CKOPAD /YES 

6334 1779! TAO STEP /NO = GET Ac 

6332 4767! JMS ERR /GO0 TO ERROR ROUTINE 
6333 2203 ERROR 80a3 /OP ADOR ERROR CODE 


6334 5722 JMP CKOPAD /RETURN 











/ 


MINY ROUTINES 


6335 
6336 
6337 
6340 
6341 
6342 
6343 
6344 
6345 
6346 
6347 
6352 
6381 
6352 


6333 
6354 
6355 
6356 
6357 
6342 
6361 


6363 
6364 
6365 
6366 
6367 
6370 
6371 
6372 
6373 
6374 
6375 
6376 
6377 





(TRS) 


OYALI@ vV2as 


SETSYS, 2 
CLA 


Yad 

AND 

7A5 

ACA 

JMP } 
SETSTS, 2 

CLA 


TAD 
AND 
TAD 
DCA 
JMP 


SETST6, 2 
CLA 
rad 
AND 
FAD 
DCA 
JMP ! 


PAGE 


CSTATE 
(377 
(2430 
CSTaTE 
SETSTS 


CSTATE 
(397 
(1408 
CSTATE 
SEFSTS 


CSTATE 
(397 
(3000 
CSTATE 
SETSTO 


6eAPRa72 


13437 PACE 65 


7SET PROG STATE 8 


/SET PROG STATE 3 


/SET PROG STATE 6 





/ 


am 


MINE ROUTINES 


6409 
6404 
6442 
6483 
6494 
6485 
6426 
6407 
6446 
6444 
6442 
6443 
6444 
6445 
6446 
6447 
6420 
6424 
6422 
6423 
6424 
6425 
6426 
6427 
6430 
6434 
6432 
6433 
6434 
6435 
6436 
6437 
6440 
6441 
6442 
6443 
6444 
6445 
6446 


(TRS) 


2228 
7209 
1022 
7649 
5242 
1024 
7104 
7404 
7650 
5600 
1924 
7104 
7530 
7442 
5224 
7430 
7440 
5244 
7529 
5244 
3024 
1022 
7104 
3022 
7430 
2021 


1023 


2377 
7404 
3923 
7430 
2022 
1074 
1376 
3073 
5281 
7012 
3824 
3682 


XNORM, 


XNEK, 


NXSHFT, 


XNENB, 


OLAL12 


V283 


aan. 


13137 PAGE 66 


/NORMALIZE THE O REGISTER 


g 

CLA 
TAD 
SZA 
JMP 
FAD 
Chl 
CLL 
SNA 
JMP 
TAD 
CLL 
SPA 
SKP 
JMP 
Sz 
SKP 
JMP 
SMA 
JMP 


CLA 


RAL 
RAL 
CLA 


RAL 
SZ. 


RAL 


Chi 


OLSW 


+6 
OMSW 


XNORM 
OMSW 


NXSHF T 


XNEND 


XNEND 
OMSW 
OLSW 


OLSW 


OMSW 
OEXT 
(7400 


OEXT 


OLSW 
SHREG 
(#4 
SHREG 
XNORMeg 


OMSW 
XNORM 


/GET 9 REG LSW 

/1S JF ZERO 
/NO@NORMALIZE [IT 
/GET © REG MSW 
/REMOVE BITS @ AND 4 


/1S 0 MSW ZERQ 
/YES@RETURN 

/GET OMSW- 

/SHIFT LEFT _ 
/ARE BITS @ ANB { BOTH ZERO 
/NO 

/YESeNOT NORMALI#E6 
AIS BIT oaf 
/YES@CHECK BIT 1. 
/NO*NO JS NORMALIZED 
4S ByT wef 

/NOSNO 1S NORMALEZEO 
AYES@NORMALIZE NUMBER 
/GET O REG LSW 


ASHIFY QUT? 
/YES@INSERT INTO MSW 
/GET EXT 
/SAVE 4 BI?S ONLY 
/SHIFT LEFT 


/SHIFT QUT ? 
/YES © {NSERT INTO LSW 


/DECREMENT SHIFT REG 


/CHECK NO, AGAIN 
/RESTORE MSW 











/ 


MIN 


RIUTINES 


6447 
£459 
$451 
64582 
453 
6454 
6455 
6456 
8437 


$462 
6461 
6462 
6463 
6444 
6465 
6446 
6467 
6472 


6474 
6472 
6473 
6474 
6475 


6476 
6477 
6548 
6501 


6502 
6523 
6504 
6505 
6506 
6507 
6519 
6541 
6542 
6543 
6514 
6545 
6546 
6547 
6522 
6524 
6522 
4523 
4524 
4525 
4526 


Se 


(TRS) 


2022 
3184 
1034 
2375 
1257 
3193 
1124 
3583 
3647 


2089 
7388 
1231 
0374 
70i@ 
7012 
1373 
31838 
3662 


8922 
4268 
2383 
7008 
3674 


8038 
4269 
1583 
5676 


8000 
7320 
1072 
7650 
$702 
7108 
4827 
7540 
7420 
70i¢ 
3927 
1030 
7010 
3030 
1934 
7040 
0377 
3031 
2074 
5307 
"702 


XPUTX, 


{NDEX, 


XPLUS1, 


XGETX, 


SHIFTS, 


DIAL12 


4 

OCA 
TAO 
AND 
yao 
OCA 
TAD 
OCA 1 
JMP I 


CLA CLL 


CLA CLL 
SNA CLA 


VB83 


T2 
PIR 
(7 
PXP 
Th 

T2 

TA 
XPUTX 


PIR 
(72 


(XB 
4 
INDEX 


INOEX 
T4 
XPLUS4 
INOEx 
v4 
XGETX 


SHREG 


-SHIFTE 


BMSW 


BMS8W 
BLSW 


BLSW 
BEXT 


(7428 
BEXT 
SHREG 
SH{IFTBs5 
SHIFTB 


13)37 PACE 89 


/PUT DATA IN INDEX REG 
/SAVE OATA 

/GET INSTRUCTION | 
/EXTRACYT BITS Seti 
7ADD X2@ ADBSR 

/SAVE ADDR 

/GET DATA 

/STORE DATA 

/RETURN 


7FIND INDEX REG SPECIFIED 

/BY BITS 608 OF FPP INSTRUCTION 
/GET JNSTRUCTION 

/EXTRACT X BITS 

ARIGHT JUSTIFY 


/ADD TO AQBRESS OF X® 
/SAVE X ADAR 

/RETURN 

INCREMENT X 

/GET ADDR OF X IN 4 

7ING X 

/RETURN 

“GET JYNOEX REG 

/FIND ADDR OF X 

/GET pata IN X 

/RETURN 

ASHIFT B UNTIL SHFT CNT ae 
AGET SHIFT REG 

/SHFT CNT86? 

/YES#Q0 NOT SHIFT 


/NOeSHIFT BMSW 


/SHIFT B LSW 


/SHIF?T B EXTENTION 
AVSE ONLY 4 BITS 
/SHIFY CNYao? 


/NOeSHIFT AGAIN 
/YES@#RETURN 


( 
as 


7 MIND ROUTINES (TR3) DIALA® VOG3  SeAPRe72 13137 PAGE 88 
4527 3209 aPTOEC, 2 /DECREMENT PROGRAM 
4530 7342 STA ChL /APT POINTER 
6531 1052 TAD PAPTed /12 BIT ABSOLUTE ADDRed 
6532 3250 DCA PAPT#41 
6533 7429 SNL /OVERFLOW? 
6534 7942 CMA /YES 
6535 1947 TAD PAPT /FIELOD BITS 
6536 3247 DCA PAPT 
4537 7302 CLA ChL 
6542 5727 UMP { APTDEC /RETURN 
6541 3000 cCKSUB, 2 | /SKIP IF INSTRUCTION I$ 
6542 3352 DCA CKST /NOT A SUBTRACT 
6543 1054 TAD PIR /GET JNSTRUCTION 
6544 7206 RTL 
6545 7429 SNL /SUBTRACT? 
6546 2341 1S2 CKSUB /NO@INCREMEN? RETURN 
6547 7399 CLA Chih 
6530 1352 TAD cKsT /RESTORE AG 
6581 3741 JMP ft CKSUB /RETURN 


6582 20008 CKST, 8 


6573 8289 
6574 8872 
6575 6907 
6576 7777 
6577 7488 
6682 PAGE 








/ MINE ROUTINES 


6602 
6604 
6682 
6603 
6604 
6605 
6606 
6607 
66% 
6644 
6642 
6643 
6644 
6645 
6646 
6647 
6629 
6624 
6622 
6623 
6624 
6625 
6626 
6627 
6630 
6631 
6632 
6633 
6634 
6635 
6636 
6637 
6640 
6644 
6642 
6643 
6644 
6645 
6646 
6647 


6652 
66514 
6652 
6653 
6654 
6655 





(TRS) 


4 
8982 
3247 
2183 
$232 
3600 


S280 
7382 
12532 
3282 
7048 
S282 


CMEMY, 


CMEM, 


MGODE, 


CMEM2, 


OTALL2 


VOOS 


13137 PAGE 89 


/CHECK DATA THE FPP STORED IN MEMORY 


2 

CLA CLL 
TAD 

OCA 

TAD 

CIA 

AND 

CLL RTL 
RAL, 

TAD 

OCA 

TAD 

Cia 

Tad 

OCA 

FAD 

DCA 

CMA 

TAD 

OCA 

Fad 

AND 

CLL RAL 
RTL 

Tad 

DCA 

cor 
Pad 2 
COF 

CTA 

TAD 1 
SNA CLA 


CLA ChL 


~ 


(#4 
ie! 
ae 


(2 

(2 
MCODE 
Th 
(EMEMe2 
SAVMEM 
SAVMEM 
12 
OPADRed 
44. 
OPADR 
(? 


CMEMie2 


/COMPARE MEMORY EXPONENT 


/GEY COUNT 
/SAVE COUNT 


/4 OR 2 WORD ERROR CODE 
/MOVE COUNT TO BITS 608 


/MEMORY ERROR CODE 
/STORE FOR ERROR 
/GET WORD @QUNT 


/ADD COUNT TO BASE ADBOR 
/SAVE FOR PRROR REPORT 


/GET OP AQORESS 


GET FIELO BtTs 
/OELETE EXPRA BITS 


/MOVE 3 BITS LEFT 
/GREATE COF INSTRUETION 
/MODIFY PROGRAM 

AVUSER FIELS 

/GEY FPP OATA 

/PROGRAM FYELD 


/PROGRAM DATA 
‘3S DATA OK ? 
AYES 


NO 

/G0 TO ERROR ROUTINE 
/MEMORY ERROR COE 
/RETURN | 
/YESeeEND OF COMPARE? 
/NO@*eCOMPARE NEXT WORD 
/RETURN 


/COMPARE MEMORY FRACTION 


/GET RETURN . 
/SEY RETURN IN EXP COMPARE 
fACwey 

/GO TO EXPANENT COMPARE 


UG Uae centile were ne entire eae © 


wavleenetrveberion ty te u 


Seca ead 


~~ 


/ MINY ROUTINES (7R3) 


6656 
6657 
6662 
66614 
6662 
$6635 
6664 
6665 
6666 
6667 
$678 
6674 
6672 
6673 
6674 
6675 
6676 
6677 
6782 
6784 
6782 


6783 
6724 
$725 
6786 
67987 


6742 
6741 
6742 
6743 
6744 


6715 
67416 
6747 
6720 
e721 


3783 


2220 
3O3B 
3927 
S831 
5740 


2822 
3024 
3022 
3023 
2745 


PINDEX, 


PINCF, 


CLRAX, 


CLRBX, 


CLROX, 


OTALIO 


V383 


iim, 


13437 PAGE 9@ 


/MOVE USER INDEX REGS TO PROGRAM INDEX REGS 


2 
CLA ChL 
TaD 
CLL RAL 
RFL, 
TAD 
OCA 
sva 
TAO 
DCA 
Tad 
DCA 
TAO 
DCA 


/CLEAR THE A REGISTER 


8 

DGA 
OCA 
OCA 
JMP f 


/CLEAR THE B REGISTER 


g 

OCA 
OCA 
DCA 
JMP ft 


/CLEAR THE O REGISTER 


My 

DCA 
DCA 
DCA 
JMP ft 


XZaDR 


(COF 
PINCF 


XBaDReod 
12 
(Xde4 


Th 
PINCF 
P INDEX 


AMSW 
AL SW 
AEXT 
CLRAX 


BLSW 
BMSW 
BEXT 
CLRBX 


OMSW 
OLSwW 
OEXT 
CLROX 








/SET PROGRAM INDEX REGS 
/USER INDEX POINTER FIFLD BITS 
/CREATE COP INST 

/MODIFY PROGRAM 

/VSER INDEX POINTER 

ADDR OF PROG INGEX REGS 
/COUNT 

AUSER FIELS 

/PROGRAM FIELO 

/FINISHED? 

/NO 

/RETURN 








/ 


MIND ROUTINES 


6722 
é728 
8724 
6725 
6726 
6727 
6732 
67314 


6732 
6733 
6734 
6735 
6736 
6737 


6742 
6744 
6742 
6743 
6744 
6745 
6746 
6747 
6780 
6784 
6752 
6783 


6768 
6764 
6765 
6766 
6767 
6770 
6774 
6772 
6773 
6774 
6775 
6776 
6777 





(TRS) 


2QO2O 
7300 
3442 
2022 
5722 
2024 
7002 
5722 


2088 
7300 
1185 
1366 
3125 
3732 


OPLUSI, 


STING, 


MEMINS, 


DIAL1@ Vaes GeAPRal2 43437 PAGE 9f 


/INCREMENT THE O REGISTER 


a /INCORSING THE O REG 
Cub CLG. 

DCA OVFL /CLEAR OVERFLOW 

1S2 OLSW /INC LSW 

JMP $ 8 OPLUSS /RETURN 

1Sz OMSW ZINC OMSW 

NOP 

JMP 3  OPLUSS /RETURN 

/INCREMENT THE PROGRAM STATE GENERATOR 

g /YNCSTBINCREMENT TRE 

CLA CLL /PROGRAM MAYOR STATE GEN, 
TAD CSTATE 

TAO (480 

OCA CSTATE 

JMP : 8 STIENC /RETURN 


/DOES INSTRUCTION STORE THE ANSWER IN MEMORY ? 


", /SKIP TF ANSWER §§$ NOT TO 6O TO MEMORY 
CLA ChL 

Tad PIR /GET INSTRUCTION 

AND (7a08 /EXTRACT OF COBE 

Tad (985900 

SNA /FAQOM? 

JMP | /YES@RETURN 

TAD (#2200 

SZA CLA /AFMULM? 

182 | MEMINS /NOeINCREMENT RETURN 
CLA CLL 

JMP ~  MEMINS ARE TURN 

PAGE 


at ey ee es 


Oo oe ee 


/ 


a 


MINE ROUTINES 


7949 
7291 
7QR2 
7283 
7284 
7985 
7386 
7907 
7240 
7041 


(TRS) 


AOA 
7342 
1045 © 
3245 
7429 
7840 
1044 
3244 
7388 
5620 


OPOcel, 


DIALI@ 


V8aS 


13137 PAGE 92 


/DECREMENT THE OP ADDRESS 


4 

Chl STA 
TAD 

OCGA 

SNL 

CMA 

TAD 

DCA 

CLA ChL 
JMP 


OP ADRe4{ 
OPADRe4 


OP ADR 
OPADR 


OPOEC 


/JOECREMENT OP AD®RESS 
/ACaey 
#42 BJT ABSOLUTE ADDR 


/FIELD BITS 


/RETURN 














/ 


MIN? ROUTINES 


7312 
7413 
7344 
7245 
7846 
7647 
78208 
7024 
7322 
7923 
7924 
7825 
7826 
7627 
7238 
7831 
7832 
7833 
7934 
7335 
7836 
72837 
7940 
7044 
7942 
7343 
79464 
7345 
7346 
7347 
7938 
7054 
7382 
7038 
7354 
7955 
7056 


(TRS) 


2000 
7322 
1226 
1031 
1276 
3923 
7034 
1825 
1032 
3022 
3076 
7084 
1024 
1027 
3024 
7940 
3077 
4522 
5254 
1924 
7104 
7220 
1827 
7539 
7060 
7730 
5255 
1824 
7104 
7200 
1024 
753g 
7060 
7730 
7340 
3441 
5612 


AQBAS, 


SETFL 


DIALI2 


v2a3 
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/ADD A AND B REGISTERS AND STORE THE 
/ANSWER IN THE O REGISTER, 

/THIS ROUTINE AND "SUBABY SIMULATE THE 
/ARITHMETIO FUNCTIONS OF THE ADDER 


g 

CLA CLL 
TAD 

TAD 

TAD 

OCA 

RAL 

TAD 

TAD 

DCA 

DCA 

RAL 

TAD 

TAD 

DCA 

RAR 

DCA 
UMS! 
JMP 
TAD 
RAL Cb 
CLA 

TAD 

SPA S8L 
CMA CML 
SPA $2, 
MP 

TAD 

RAL Cbb 
CLA 

TAD 

SPA SzL 
CMA CML 
SPA SZL 
STA CLL 
DCA 

UMP 


AEXT 
BEXT 
CARYIN 
OEXT 


ALSW 
BLSW 
OLSW 
CARYIN 


AMSW 
BMSW 
OMSW 


CAROUT 
CSPECFL 


SETFL 
AMSW 


BMSW 


CLA. 
SETFLed 
AMSW 


OMSW 
CLA 


OVFL 
ADBAB 


/APBOsA PLUST B TO 0 
7ADD EXTENSIONS 
7A00 GARRY INSERT 


AINSERT CARRY OUT OF EXT 
/aA00 SW 


/RESET CARRIN IN . 
/INSERT CARRY OUT OF SLW 
7a00 MSW 


/GARRY QUT TO ee Bit 

ASAVE CARRY OUT 

/CHECK FOR 4008 8288 IN 

/0 s 4898 8682 sPECTAL OVERFLOM 
/CHECK OVERFLOW 

SIGN OF A IN LINK 


/GEY B SIGN . 
7ARE BOTH SIGNS FOS 
/NO@COMPLIMENT 
/ARE BOTH SIGNS NEC 
/NO@NO OVERFLOW - 
7GET SIGN OF OPERAND 
PSAVE IN TRE LINK 


/GET SIGN QF ANSWER 
7ARE BOTH SIGNS POS? 
/COMPLIMENT 

7ARE BOTH SIGNS NEG? 
/NO#SET OVERFLON 
/STORE OVERFLOW 
/RETURN 





/ 


MING 


~ 


ROUTINES 


7357 
7262 
7964 
7262 
7263 
7064 
7265 
7066 
7267 
7272 
7Q71 
7372 
7273 
73974 
7275 
7276 
7877 
7488 
7401 
7182 
7483 
71404 
74285 
7196 
748? 
7118 
7441 


7112 


7143 
7114 
7445 
7116 
7417 
7128 
7224 
7122 
7123 


7424 
7425 
7126 
7127 
7138 
7431 
7132 
7433 
7134 


(TR3) 


2000 
7330 
1342 
7040 
3312 
1031 
7840 
1377 
9376 
3031 
1030 
7849 
7430 
7101 
3030 
1027 
7840 
7432 
7491 
3627 
1342 
7650 
5310 
4576 
5260 
7320 
5657 


2020 


A080 
7388 
1821 
7642 
3713 
1822 
7650 
25138 
57415 


COBe 
7322 
1836 
7640 
5724 
1237 
7656 
2324 
5724 


SY8A8, 


SUBSW, 


Obz, 


AEZ, 


DYALI2 


VOO3S 


Mii, 
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/SUBTRACT 8 FROM A AND STORE THE 
/ANSWER IN TRE 0 REGISTER 


2 

CLA Cuil 
yao 

CMA 

OCA 

TAD 

CMA 

TAO 

AND 

DCA 

TAD 

CMA 

SZ. 

TAC CLL 
OCA 

TAD 

CMA 

SzL 

TAC CLL 
OCA 

TAD 

SNA CLA 
JMP 
APBO 
JMP 

CLA CLL 
JMP 3 


‘ 


CLA CLL 
TAD 

SZA CLA 
JMP 3 
Tad 

SNA CLA 
1S? 

JMP 1 


CLA ChL 
TAD 

SZA CLA 
JMP | 
TAD 

SNA CLA 
[$2 

JMP | 


SUBSW 


SUBSW 
BEXT 


(488 
(7482 


BEXT 
BLSW 


BLSW 
BMSW 


BMSW 
suasu 


+3 
SUBABe4 
SusAB 


OMSW 


OE2 
OLSW 


Ob2 
OkZ 


ACMSW 


AE2 
ACLSW 


AEZ 
AE2 


/AMBZeA MINUS B TO @ 
/NEGATE 8 AND ADD 
/GET PASS SWITCH 
/COMPLIMENT 


/GET EXTENSTION 
/NEGATE EX? 
74 BITS ONLY 
/KEEP IT 4 BITS 


/GET LSW 

/COMPL IMENT 

/CARRY QUT OF EXT? 
/YES@ADD IN CARRY 


/GET MSW 
/COMPLIMENT 
/CARRY QUT OF LSw 
/YES@ADD IN CARRY 


/GET PASS SWITCH 
/FIRST PASS? 
/NO@SUBTRAGT COMPLETE 
7ADD A AND MINUS B TO 
/RESTORE 8 REG 


/RETURN 


/SKIP IF Qed 


/Q MSW5Q? 
/NO=DOQ NOT SKIP 
/YES@CHECK LSW 
/OLSWed? 
/YES@eINC RETURN 


/SKIP {TF FACsQ 


/GET FAC MSW 
/MSWEQ? 
/NO@RETYURN 

/GET FAC LSW 
/LSWSQ? 
/YESeINC RETURN 
/RETURN 

















/ 


MIN! 


SOUTINES 


7435 
7136 
7137 
7442 
7444 
7442 


7443 
7144 
7145 
7446 
7147 
7132 
7191 


7132 
7483 
7454 
7355 
71436 
7357 
7162 
7161 
7162 
7163 
7164 
7165 
7166 
7167 
7172 
7474 
7472 


7176 
71477 





(TRS) 


ASSP 
7300 
1036 
7740 
2335 
5735 


BROB 
4335 
7410 
5743 
4324 
2343 
5743 


8080 
7320 
1974 
76508 
5732 
1928 
7184 
3823 
1922 
7864 
3022 
10221 
7084 
3021 
2074 
3$57 
5752 


7482 
2488 
7222 


ALZ, 


AGZ, 


SHIFTO, 


OFALL2 


PAGE 


V283 


ACMSW 


Az 
ALZ 


ALZ 


AG2 
AEZ 
AGZ 
AG2 


SHREG 


SHIFTO 
OEXT 


OEXT 
OLSW 


OLSW 
OMSW 


OMSW 
SHREG 
SHIFTOe5 
SHIFTO 
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/SKJP IF Fac IS NEG 


GET FAC MSW 
/YS Fac MINUS 
/YES# INC RETURN 
/RETURN 


/SKIP IF Fac $8 GREATER THAN @ 
43S FaC MINUS 

/NO@CHECK YF @ 

/YES#00 NOP SKIP 

/18 Fac 8? 

ANOe{NC REPURN 

/RETURN 


/SHIFT O LEFT UNTIL 
/SHIF? CNTRa® 


/SHIFT CNTad 


/YES=NO SHIFT 
/GET EXTENTION 


/GET LSW 
/GET MSW 


SHIFT CNTRso? 
ANO@SHIFYT AGAIN 
/YES RETURN 


ps 
ee 





/ 


‘ ¥ 
4 


MINT ROUTINES 


7222 
7204 
7292 
7223 
7204 
7285 
7226 
7207 
7242 
7241 
7212 
7243 
7214 
7215 
7216 
7247 
7220 
7224 
7222 
7223 
7224 
7225 
7226 
7227 
7230 
7234 
7232 
7233 
7234 
7235 
7236 
7237 


7240 
7244 
7242 
7243 
7244 
7245 
7246 
7247 
7252 
7254 
7252 
7283 


(TRS) 


5273 
3022 
3029 
3467 
3257 
3280 
5247 
3257 
5273 
2630 
2630 
3467 
3257 
2659 
5247 
3257 
5000 
5023 
5026 
5227 
5Oi4 
5014 
5047 
5022 
5200 
5187 
4642 
4620 
1633 
1633 
1633 
1653 


2400 
2582 
2600 
8526 
A549 
7352 
1476 
1436 
1456 
2663 
0542 
1452 


INS2, 


INS2a, 


CNTRLS, 


DIAL1@ 


V28S 


6eAPRe72 


lin, 


/FPPa12 ARITHMETIC INSTRUCTIONS 


FLOA 

PF ADD 
PFADD 
PFOTV 
FMUL? 
PFADD 
FSTA 
FMULT 
FLDA 
OPADO 
DPADDO 
PFOJV 
FMULT 
DPADD 
FSTA 
FMULT 
JEQ 

JGE 

JLE 
JTRUE 
JNE 

JL? 

JGT 

JAL 

SETX 
SETB 

JSA 

JSR 
SPEC2L83 
SPEC2ie3 
SPEC2LeS 
SPEC2LeS 


SA 
RA 
AS 
RT 
RF 
TY 
CM 
EX 
LOOP 
SH 
Ch 
EA 
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/FLLDA 
/F,P, ADD AND SUR 
/F,P, ADD AND SUR 
/FOLV 
/FMUL 
/F,P, ADD AND SUB 
/FSTA 
AFMULM 
/FLDA 
/0,P, AOD AND SUB 
/0,P, ADD AND SUB 
/FOLV 
/FMULM 
70,P, ADD AND SUR 
/FSTA 
/FMULM a 
/TABLE OF INSTRUCTION 


/ADDRESSES FOR SPEEIAL 
/FORMAT 2 OP Code if 
A JUMP ALWAYS (JA) 








/ 


MINY ROUTINES 


7256 
7255 
7256 
7257 
7262 


7261 
7262 
7263 
7264 
7265 


7266 
7267 
7270 
7271 
7272 
72783 
7274 
7275 
7276 
7277 
7320 
7381 


7382 
7383 
7304 
7385 


73086 
73287 
7310 
7344 
7312 


7313 
7314 
7315 
7316 


73147 
7322 
7321 
7322 
7328 
7324 


(TRS) 


2022 
7322 
1377 
3776! 
5654 


2002 
4313 
2465 
2920 
5661 


LLY 
7410 
5666 
1375 
3267 
4343 
2672 
8820 
4343 
2742 
8008 
5666 


280 
4774! 
62i2 
5782 


229g 
4773! 
6eti 
6212 
5786 


2022 
6212 
5716 
2825 


2082 
6241 
6212 
4724 
9717 
1822 


SETRET, 


ASTER, 


TITLE, 


WORDL 


KEYLLe 


YYP, 


ERR, 


OVALS 


VO83 
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/SET RETURN FoR AUTO RESTART 


2 

CLA CkL 
TAD 

OCA 

JMP I 


2 
JMS 
AST 


‘ 
JMP | 


2 

SKP 
JMP { 
TAD 
DCA 
JMS 
MQDEC 
g 

JMS 
ECONO 
2 


JMP I 


2 

JMS 
CIF 
JMP 


JMS 
COF 
CIF 
JMP fT 


CIF 
JMP f 
TYPL 


COF 
CIF 

JMS 
JMP J 
ERR12 


(STFPPe2 
RETURN 
SETRET 


TYP 


ASTER 


TITLE 
(7600 © 
TITLE sd 
TYP 


TYP 


TITLE 


WORD 
10 
WORDL 


12 


1%2 
ERR 


/GET REENTER ADOR OF NORMAL MODE 
/SET REENTER ADDRESS 
/RETURN 


/LINK TO WORD PROM FIELD 4 


/TYPE TITLE ONCE ONLY 

/DELETEO APTER FIRST TYPEQUT 
/THIS INST USED APTER FIRST ENTRY 
/GET A NOP 

/DELETE SKYP INSTRUCTION 


/MAYTNDEC NUMBER 


/ECQ REVISTON NUMBER 


/LINK TQ KEYCK FROM FIELD & 


/LINK To T¥P19 IN FIELD 4 


7ZEINK TO ERR1f IN FIELB 4 


ee 


3 
7 
v 


/ MINDY ROVTINES (TRS) 


329 
7326 
7327 
7332 
7331 
7332 
7333 
7334 


7335 
7336 
7337 
7340 
7344 
7342 
7343 
7344 
7345 


7346 
7347 
7332 
7331 


7382 
7353 
7354 


2030 
7322 
6556 
3772! 
1325 
4317 
2004 
5725 


2000 
7320 
1335 
3343 
7249 
62i1 
3771 
6201 
5314 


2908 
6242 
5754 
8072 


6242 
5754 
3200 


STERR, 


TYPNECR, 


ASC, 


TY, 


DIAL12 


0 
CLA Cul 
FPRST 
DCA 

TAD 

JMS 
ERROR 
JMP Y 


"a 

CLA CLL 
TAD 

OCGA 

STA 

COF 

OCA 1 
COF 

JMP 


g 

CIF 
JMP | 
ASCL 


CIF 
JMP ft 
TY42 





V323 


STSAVE 
STERR 
ERR 
O24 
STERR 


TYPNCR 
TYP 


12 
(CRSW 
8D 
TYPe4 


18 
o*t 


18° 
+i 


ha APRe72 


Aan, 
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7STATUS ERROR 


/GET STATUS FROM FPPei2 
/SAVE FOR FRROR YYPEOUT 
/GET RETURN ADBRESS 

GO TO ERROR ROUTINE 
/STATUS ERROR CORE 
/RETURN 


/TYPE WITH NO CARRAJGE RETURN 


/GET RETURN ADOBRESS 

/SET TYP ENTRY FOR RETURN 
/SET TRE AC # 7777 

/FTELO 4 

SET NO REPURN SWIPCR 
/RESTORE FYELD 

/GQ TO TYPE ROUTINE 


/LINK TO ASCES IN PIELB 4 


GO TO TYPE ROUTINE IN FIELO 4 











2 MINE ROUTINES 





(783) 


2024 
23541 
0250 
0264 
7092 
1359 
1022 
5465 
0490 
8243 
6324 
6742 
6156 
6144 
7443 
7152 
6502 
7435 
7443 
7124 
6447 
6489 
6656 
6816 
6054 
6032 
6847 
6842 
6823 
6935 
6474 
6732 
5432 
6722 
5423 
5444 
6476 
6252 
6256 
6246 
5600 
6200 
7020 
6527 
6630 
6690 
6745 
6712 
S703 
R400 
545g 
7942 


DTAL1a 


VO8S 


6eAPRe72 


13137 
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#66 39VG 


= 


LQiet 


cLeudve9 





t 


} 
ed 


W3t4 


S22A 


ge7VIC 


TEeu 
L£ofe 


dé 


[ a 


74 


| 
bal 


a 
he. 


Oe cteeeetad 


2002 
0102 


22002 
0582 


0482 
0582 


0682 
8700 
1008 
1100 


1200 
1302 
4400 
1390 


1600 
1702 


2860 
2102 


2268 
2500 


2488 
2500 


24682 
2780 
3282 
3182 


3282 
3582 


3482 
3588 


3682 
3720 


FIELD 


Hh es 
Tilisit: 


4iiiiiii 
daiiiii2 


diiiiiii 
41114141 


qitatiais 
11114142 
diiiiiti 
Gidasads 


dititiis 
Tataiii2 


ditiiiii 
diatatiis 


diiaiii1 
d2daiai2 
44424141 
d1daiiita 


diiiiais 
41114141 


q1iiti1i4 
diditiis 


41114141 
110009090 
114111144 
41114441 


1ititii4 
14414112 


41111111 
11144141 


11111111 
11141111 





79902080 
eb ees: 


Pa ee ee bl 
fisitiit 


11iiiiii 
tifaiiti 


1ifi1i41 
G2AG2020 
11711141 
41414141 


11iitii1 
tidiiada 


1ifaiii1 
41f14171 


1atasiis 
4ifiii1i1 
414411471 
aafaii%1 


11441141 
1iiiiiia 


124112141 
tiiiiifi 


41111111 
Avenvesae 
4422141 
111141111 
Piitisit 
dititiii 


11i1t1%4 
ui pS 


tidi71%4 
See eae et 


MJALL2Z VOGS 


11idiii14 
$1i1iiii 


4114111 
4ii1f141 


d1f11111 
t1iifii1 


41ii1f111 
Ada2eeee 
t4iid142 
42417111 
difiiiii 
4ifiiiii 
dacifiii 
42a27113 


£aiif414 
EELS: 


1714111 
dacadisa 
4ififi14 
Sg008008 
41iiiii4 
diiidaii 


41i17%111 
Seageeee 


PEREEEE! 
L1ii4ii111 
PERRERE 
i ee es 


11414111 
41i1i111 


11iiai14 
11414114 


6eAPRa72 


“44411111 


11411111 


1ifiiii1 
qifitiii21 


14411141 
4ifiiii2 


14414101 
TELL 
safai1i1 
12414491 


14241191 
1idaiii1 


1iisiifs 
41110000 


sidisiis 
a0peeeda 
asp itads 
1ifs2i¢4 


1afisiii 
ELLE 


44011141 
424111441 


414414471 
aeeesesae 
44441471 
11111000 


124141141 
41411144 


fie tei et 
11411141 


Lacitiit 
qi4itiaci 


1iiiiiii 
d1idiiti 


iiiaiii4 
aiiidiii 


44111114 
11112022 


ditiiii4 
poesoeae 
4igdiii1 
ditidiia 


disadiis 
diqisisa 


fitiiiis 
60000000 


diidiiid 
go2o8eee 
Giiasii4 
11000000 


41id4142 
2002088 


Giiigi44 
71411108 


qi1ii4i1i14 
g2022g08 
q14ad4ai4 
agegagag 


41141114 
igee2000 


11411111 
diiiiiii 


d1i4diii 
fiitiits 


13137 


» eo Se 
He Be Be 


teiiizrit 
110090141 


1iiiiiii 
@OCCL1141 


1iiiiiii 
GOG1L 141 


14414133 
12464111 


41414141 
1141341243 


14414341 
GBESS2GlQ 


44414301 
@00G1141 


124144451 
GCSSASHY 


43243131 
S2SBSHG9 


114141334 
SASC2G8Q 


14211141 
SASSSGS8 


1it4ii14 
ABASAALB 


41224141 
GS2QA089 


11411111 
Liiiiils 


Liiiiii1 
Lidiiiii 


— 


a 
BS 


\ 
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Ciiiiiii 
Tiiiiiiz 


{iiidiii 
Tiri1f111 
{iiiiiii 
T1ii1f141 


{iiifiii 
Ti1isfi41 


(1iiifii1 
T1i17171 


{1is71t1 
agogeiii 


f1iifiti 
a9900001 


T1ditiii 
{itsiaii 
ead Sb 
gagitads 


{1istais 
AG080090 


fatisids 
CLL LEES 


fiiafiii 
agoetiis 
Tiiifiss 
agageong 


T1ii4411 
agagaong 
fififiis 
{1199000 
fitidiiz 
fi1iidiii 


11111141 
1ii1iisi 


1ifiiidd 
1itaiis2 


fifisiii 
4ifaiiii 


41711142 
difaiasa 
fifii1i1 
di1fiiii1 
1iiii141 
difaiiii 


41741141 
41f11141 


1iiiiidi 
42214141 
Tii141 
fidiss 


Tiiid4 
Tatas 


i1 
44 
1 
aiisidi 
i 
1 
i 


Se 


es a 


f1ia42 


fidiii 
Litis2 


+1 Fs 


q1ditii1 
A0A11144 


11711141 
AGOG1141 


11411114 
@14141i1 


4541143 
1@411141 


f™ 


Na ; 


(Ae. 
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4220 
4182 


4200 
4382 


4482 
4580 


4600 
4780 


5080 
5188 


$292 
53588 


5480 
5580 


5600 
5700 


6090 
6108 


6202 
6390 


6492 
6500 


6688 
6708 
7282 
7108 


7288 
7588 


7408 
7588 


76208 
7700 


1itititi 
tiiitids 


qii411i4 
11114111 


diditiii 
diiiiiis 


diiidai4 
peegrgag 
titaiii1 
Litiiais 


Gitadiis 
qitatiii 


didisada 
{isgegac 


41414111 
disadadi 
d444d444 
4i4i4a41 


didaiiis 
di114141 


41141141 
dititaia 


didaiii4 
41141141 
11111111 
4iiiiii2 


1iiiiiii 
Liiii1i1 


11411144 
41414141 


tliiiiti 
etpiiti 


11414474 
1if14144 


fU 011141 
ODAD2080 
1itiiii1 
tidiiids 


11711141 
11211112 


41242421 
OB20080 


1i4aiif1 
tafitafs 
safasais 
t2iiiii2 


11411141 
t24ata¢2 


44414441 
tidaiifi 


414411111 
42414141 
Pi ii4iti 
11114141 


14411371 
11421191 


se Hee 
112238272 


11412112 
fads tis 


Sti 2i017 
iti ita 


4iiai142 
Beonaoee 
44i2i114 
4a¢.d242 


4iciiiis 
2000000 


4aisf114 
80000000 
$1digii1 
fiiiafaii 


d1isiisi 
qiiifiis 


41417111 
42412111 
41412111 
4i¢ifiii 


41d1i412 
41dii111 


11414111 
qiiifiit 


pi ee oi ee 
4124211 


1ititiit 
?2e22900 


11414141 
Liiiiidi 


fo2i111 
1idiiiis 


1itii291 
a2eg00a0 
12414141 
41214141 


1if111%1 
CLE LELE. 


ET SSETS! 
eveeceeda 


aidaiits 
112080 
44921141 
1id1iii1 


1itiiiis 
vitiiii1 


tid11141 
4ifa.44i4 


a4diiiis 
424141141 
1214111 
14711141 


14411141 
ne El 


Pitgi iit 
V2A02922 


444441114 
4idisits 


(1444411 
diid1ii4 


diidiit4 
SOS82008 
41144144 
d1iii114 


fisidati 
S2SL22G08 


Gi4adii4 
go0geoee 


{is44i14 
A0902008 
fisdiais 
disaaiia 


Gaii4id4 
didadids 


Gii44144 
disisitd 


disagait4 
dididii4 
4ii444114 
diiisiid 


41034121 
41441111 


244111234 
GISSSHAD 


fititiszi 
11111122 


1i41i141 
114112820 


114141314 
GB229820 
41444421 
41414141 


444141414 
SB9G0028 


41212141 
SOBSLHSY 


42444141 
ACCCLL11 
44414441 
444243221 


44414331 
42433141 


4idaidi1 
11190000 


Z1444441 
41112000 
42441441 
Lidiiii1 


24411411 
11111000 


{1114141 
agageg22 


Tiiiiiss 
AQAIADMD 


Tiiidiii 
20908023 


Tiiididi 
agggeoag 
{iiifids 
fiftiafiii 


Tafitsis 
égogveag 


T1iifiis 
agogeagag 


Taiaiais 
Tifstida 
{iialicts 
SCECERE! 


Taiafiia 
Tapaciii 


CEP ERR! 
*OSC8SAG 


Tiiif{iis 
aeerdiii 
Titiiii4 
Ti1idiii 


Ciii1ti44 
AGAPPZAD 


$44 44333 
aO4iiii41 


PEE Pee et 
ABiiii44 


iifiii141 
ag¢iiii4 


11111188 
Aedocii4 
t1i11144 
@@fiiii4 


iaiitids 
30000841 


tifisiii 
agagegds 
Gitaiiii 
dafisidi 


41714141 
Og@iii44 


fititis 
diditida 
41f411141 
ABAr1141 


1114141 
21044441 


1i¢i3141 
11f92011 


PEE EE SE: 
Agii¢ii44 








pe 


ff ™ 


Ye 


8°66 J9V¢ 


Zeiet 


ZLaudys9 


@bvic 


t 





| 


aengeatee stele ewe 


ERI or Se ed geen Ee 


Pe na rashes 


‘ F 


FIELO 2 


AQ%? 


2020 
2924 
2022 
0923 
2924 


Z222¢ 
7248 


2822 
8082 
2022 
2088 
2209 
2HAaB 


OTAL12 


ad 


T42) 
T22, 
ASCWD2, 
OCTWOR, 
CRSW, 





aim, 


V2a3 6eAPRe72 13937 PAGE 180 


BEGIN 


FYELO 4 OYALI8 VOaS 6eAPRe72 15137 PAGE 103 


JEINK TYP IN FYELO @ TO TYP12 IN FYELD 3 


2225 7242 TYPL, STA /AC @ a4 

026 1577 TAD ! (TYP /SUBTRACT { FROM RETURN AQORESS 
0927 6244 coF 10 /DATA FIELS f 

2930 3642 OCA 12 /SAVE RETURN ADDRESS 
2931 1176 7ad (a6 /GEY TEXT COUNT 

Ge32 3851 OCA TYPLX /SEY LOOP @OUNTER 

933 1175 TAO (TYPLOet /TEXT TABL® ADOBRESS 

2034 3011 DCA 44 

2335 3441 oca i: 1 /CLEAR TEX? TABLE 

9936 2051 1$2 TYPLX 

2037 5935 JMP 192 

0042 1175 TAD (TYPLDed /TEXT TASLE ADDRESS 

0044 3041 OCA 44 

2942 6201 coOF ae /MOVE TEXT TABLE 
9943 1440 TAD 2 = 18 PROM FIELD @ 70 FYELD 4 
944 6241 COF 48 

0245 7459 SNA 7ENO OF TEXT TABLE ? 
946 5052 JMP +4 /YES . 

947 3441 oca ft id JNO » SAVE TEX? ADBRESS 
9250 Se4e MP 96 /GET NEXT ADDRESS 

0284 o90¢ TYPLX, 2 

g82 1174 TAD (TYPLO /GET DATA ADDRESS 

9983 3773+ OCA TYP1@ /SET TYP RETURN 

0984 1024 TAO CRSW /GET GARRAYGE RETURN SWITCH 
0255 7659 ‘SNA CLA . /RETURN WANTED ? 

0986 5772! JMP TYP1Ge4 /YES 

2087 3024 DCA CRSW /RESET CARRAIGE RETURN SWITCH 
egso 5774! JMP TYP1005 /BYBASS CARRAIGE RETURN 
2264 e000 TYPLO, @ 

962 A982 ", 

0963 2800 a 

(264 8082 Q 

0965 e002 2 

0266 e002 2 

2067 62284 cor a2 

0278 6282 cir ag 

2971 5412 JMP Y 12 /RETURN TO FIELD 2 


w 








2372 
2373 
7374 
2075 
2276 
2377 
F182 
7171 
2122 
7183 
124 
€105 
2186 
#197 
#112 
@1i4 
f1i2 


2143 
$114 
2115 
8116 
0147 
2128 
0121 
8122 
2123 
3124 


2125 
2126 
0127 
8130 
2131 


P1Se2 
2133 
7134 


7242 
1572 
3210 
1410 
3112 
1419 
3126 
1512 
3142 
6211 
4767/4 
M442 
e200 
6224 
6202 
5472 
agag 


2900 
6201 
6282 
4566 
1565 
3922 
14564 
62ef1 
3223 
5513 


3882 
6281 
6282 
4563 
5525 


6201 
6202 
5562 


22a¢ 


DIALd2 


V2ES 


6eAPRe%2 


iin, 


15137 PAGE 192 


/WINK ASC IN FYELD 2 TO aSCi2 IN FIELD 1 


ASCL, 


ASCL4: 
ASCL2: 


ASCOAT, 


STA 
TAD f 
OCA 
TAD ! 
OCA 
TAD ? 
DCA 
TAD } 
DCA 
COF 
JMS 
ASCOAT 
"a 

cOF 
CIF 
JMP 
g 


/LINK TO WORD IN FEELD 1 


WORDD, 


/LINK f0 KEYCK IN FIELD @ 


KEYCKL, 


KEYCKD, 


g 

COF 
CIF 
JMS f 
Tad 1 
DCA 
TAD 3 
COF 


OCA 
JMP Yt 


Q 
COF 
CIF 


JMS 
JMP 


COF 
CIF 
JMP ft 


#222 


a2 

02 
(WORDL 
(ASCWD 
ASCWDe 
COCTWO 
18 
octwoe 
WORD 


ao 
a2 
CKEYLS 
KEYCKL 


2 
22 
(KEYCKe4 


AC a2 a4 

/RETURN ADBRESS ef 

/JDATA ADDRESS 

/GET FIRST WORD FRO FIELO 2 
ASAVE 

/GET SECONDS WORD FROM FIELO @ 
/SAVE 


/SET DATA PIELO 7 
/CONVERT To aSet! 


/DATA FIELO @ 

/ZUINSTRUCTION FIELD 

UMS TO WORD LINK INF FIELD @ 

GET THE he WwoRD FROM PrELD @ 
/SAVE IN FYELO 4 

/GET THE bef WoRB FROM FIELD @ 
/OATA FIELSB f 

/RETURN 


ACHANGE TQ FIELD 4 


perp TO KE9CK LINK IN PLELD 2 
; 


/GO0 TQ KEY&K+s4 IN FIELD @ 














FYELO 2 


2200 
2244 
2202 
2293 
2204 
2285 
2296 
9297 
B21 
B24 
8212 
2213 


D244 
2245 
2246 
8217 
9220 
0224 
2222 
8223 
0224 


225 
R226 
8227 
230 
B23si 
232 
8233 
2234 
8235 
236 
2237 
2248 
2244 


8242 
8243 
2244 
0245 
2246 
0247 
2259 
0254 
M252 
2253 





4413 
1377 
3010 
1376 
3044 
1375 
3220 
4374 
3441 
2020 
5207 
3494 


1412 
7450 
5330 
7244 
1222 
7652 
5225 
2048 
5214 


1412 
3228 
19228 
8373 
7406 
7086 
7042 
S24 
1020 
372 
3243 
1574 
3244 


4266 
OB21 
2466 
2243 
2244 
2244 
2244 
2021 
5242 
%O44 


OT AL2 


/ROUTINE TO 


TYL2, 


TYA, 


TYB, 


TYT1, 
TYT2, 


VOG3 


JMS 
TAD 
NCA 
TAD 
DCA 
TAD 
OCA 
TAD 
OCA ] 
1$2 
JMP 
DCA ! 


Fad f 
SNA 

JMP 

CIA 

TAD 

SNA CLA 
JMP 

1$2 

JMP 


TAD } 
DCA 
TAD 
AND 
RTL Chl 
RTL 
CMA 
DGA 
TAD 
ANO 
DCA 
TAD 
DCA 


JMS 
OREG 
RQUT 
1$z 
1Sz 
{sz 
1Sz 
1Sz 
JMP 
DCA | 


6" APRa72 


HANDLE ,TY COMMAND 


WORDD 
(TWOwd 


TYALL 
ASEGWOe 


at 
18 
TYA 


12 
Tie 
71a 
(7808 


T2g 
T18 
(797 
TYTS 
(ROUT 
TYf2 


GETREG 


TYTL 
TYT2 
TYT2 
TYT2 
Tea 

TYB 

TYT2 


13137 PASE 1283 


/ALLOW TTY INPUT 

/ADORESS OF ARGUMENT TABLE 
/SAVE 

/TEXT ADDRESS 


/TEXT tS 25 wORDS LONG 
/FILL TEXT BUFFER WITH SPACES 


/FINISHED 9 
/NO 
/ZERO LAST WORD OF TEX? BUFFER 


/GET ARGUMENT FROM TABLE 
END OF TABLE ? 
/YES » CHECK REQUEST FOR ALL 


/NO 

COMPARE WITH INPUT ARGUMENT 
/MATCH 9 

/YES » TYPE REGISTER 

“NO = SKIP OVER AQBRESS 

GET NEXT ARGUMEN 


AGET REGISTER ADORESS 
/SAVE 


/EXTRACT WORD COUN? 
/MOVE WORD COUNT TO 
/BITS Vath 


/SAVE MINUS WORD GOUNT 
/GET REGISTER ADGRESS 
/EXTRACT ABORESS BITS 
/SAVE ADDRESS 

/ADDRESS OF TEXT BUFFER 
/SAVE 


/GET DATA FROM REGISTER 
AREGISTER ADDRESS 

/TEXT BUFFER ABDRESS 
/UNCREMENT REGISTER ADDRESS 


/INCREMENT TEXT QUFFER ADDRESS #3 
END OF WORD COUNT 


JNO @ GET NEXT WORD 
/ZERO LAST WORD OF TEXT BUFFER 


. icnereintbinrinaaiiiie 1 





83a5 
2326 
2337 
0310 
2341 
8312 
8343 
314 
2345 
8316 
2317 
2322 
2321 
@322 
7323 
#324 
4325 
C326 
"327 


1265 
7642 
53143 
32465 
5132 
5201 
1443 
7450 
5310 
$322 
1364 
3767! 
5766! 
25416 
A980 
1442 
3022 
2042 
52A1 


STAL12 


TYC, 


TYCONT, 
GETREG, 


TNEXT, 


V233 


TAD 
OCA 
JMP 
ROUT 
2 
JMS 
CRLF 
2 
yMP 


| 


TAO 
SZA CLA 
JMP 
OCA 
JMP 
JMP 
TAD 
SNA 
JMP 
OCA 
TAD 
DCA 
JMP 
POEQ 


TAD ! 
DCA 
1$z 
JMP 


6eAPRaZ2 


(,#3 
TYP12 
TYP1245 


TYP 


TNEXT 


GETREG 
Tig 

20 

Tia 

12 

Tie 
GEFREG 
GETREG 
143 
ASO16 


GETREG 
GETREG 


TYCONT 


baa 
TYCONT 
KEYCKS 
TYdge4 
13 


1o9 

,>4 
(#3 
TYP12 
TYP1L@e5 


12 
ASCWDB 
12. 

TYidet 





li, 


45137 PAGE 184 


/GET RETURN ADDRESS 
/¥O BYPASS CARRA{GE RETURN 
/TYPE DATA 


/TYPE CARRAIGE RETURN 


AJGET NEXT REGISTER 


/GET REGISTER DATA 

/GET REGISTER ADDRESS 

/SAVE | 

/DATA 1S IN FIELD @ 

/GET DATA 

RESTORE DATA FIELD 

/SAVE DATA 

JING RETURN ADBRESS 

/GET ADDRESS OF TEXT SPRING 


AGONVERT DATA 70 ASCII! 
/ADDRESS OF DATA 
/ADORESS OF TEXT STRING 
/INC RETURN 


/GET CONTINUE SWITEH 
AUS Jf SET 2 

/YES ; 

/NO » RESET SWITCH 
/RETURN TO TTY MONYTOR 
/TYPE NEXT ARGUMEN? 
/GET NEXT REGISTER 
JEND OF TABLE ? 

/YES @ EX]? 

JNO © TYPE TITLE 


/BYPASS CARRAIGE RETURN 
/TYPE REGISTER NAME 


/GET NEXT WORD FROM ARGUMENT TABLE 


JFAKE OUT fY4@ ROUTINE 
SKIP OVER ADORESS 
/TYPE REGISTER DATA 








awe 


PIEUo: t 


2332 
2331 
2332 
2333 
334 
2335 
2336 
2337 
2342 
2341 
2342 
9343 
0344 
0345 


2361 
8362 
2363 
23464 
2365 
83466 
2367 
8370 
C374 
8372 
2373 
8374 
2375 
8376 
8377 





OTaLa2 Vaas 


1222 TYALL: 
1363 
764¢ 
5742! 
7242 
3265 
1377 
3912 
1361 
3913 
4767! 
2742 
2800 
5305 


YA9 
TAD 
SZA 
JMP 
STA 
DCA 
TAD 
ACA 
TAO 
OCA 
JMS 
CRLF 
a 


JMP 


PAGE 


CLA 


6eAPRet2 
ASCWDP 
(9114 
TYDATA 


TYCONT 
(TwOet 


12 
(REGEQet 
13. 
TYP1@ 


TNEXT 


43137 PAGE 195 


/GET JNPUT ARGUMENT? 

JCOMPARE WETH "AL" 

/MATCH 7 

/NO © TYPE VARYABLE DATA 

/YES 

/SEY THE CONTINUE SWITCH 

/GEY ADDRESS OF ARGUMENT TABLE 


/ADDRESS OF REG NAME TABLE 
/TYPE A CARRAICE RETURN 


/TYPE CONTPNTS OF ALL REGISTERS 


fi : ~ 
- 


CO # 


FYELA f 


7arg 
7424 
2472 
2443 
3484 
2495 
246 
2497 
2440 
0441 
2442 
C4413 
444 
2445 
74146 
2447 
2420 
2424 


2422 
2423 
2424 
6425 


2426 
2427 
0432 
8431 
0432 
2433 
2434 
2435 
0436 
2437 
8449 
0444 
1442 
2443 
9444 
9445 
9446 
2447 
A450 
2454 
1482 
2433 
2454 


9455 
2456 


1223 
7510 
57773 
1376 
7720 
57771 
1223 
7424 
7026 
1375 
3226 
44113 
1223 
3256 
4143 
1223 
7048 
3255 


2255 
5226 
3432 
5774! 


6201 
1656 
62434 
3022 
4773! 
2456 
2466 
4773! 
220 
2474 
3772! 
4771! 
2466 
2742 
2000 
2256 
5222 
14226 
1370 


STALLZ 


V288 


TYDATA, TAD 
SPA 


TYO, 


TOFLDs 


TYCNT, 
TYADO, 


JMP 
PAD 


SMA CLA 


JMP 
TAD 


RAL Chi 


RTL 
TAD 
NCA 
JMS 
TAD 
DCA 
JMS 
TAD 
CMA 
Oca 


1$2 
JMP 
JMP 
JMP 


COF 
FAO ] 
COF 
OCA 
JMS 
TYADD 
ROUT 
wMS 
712 
ROUTeS 
OCA 
JMS 
RQUT 
CRLF 


2g 

1S2 
JMP 
TAD 
TAD 
ANO 
TAD 
DCA 
JMP 


¢ 
z 


6aAPRe72 


Oc Two? 


DOTERD 
(ado 


DOTERD 
OCTWOe 


(COF 
TOFLD 
WORD 
OCTWOe 
TYADD 
WORD 
OCTWOB 


TYENT 


TYCNT 
TOFLO 
KEYCKS 
TY¢GeL 


a0 
TYADD 
12 
Tig 
ASC18 


ASCie 


ROUTSS 
TYP1¢@ 


TYADD 
TY 
TOFLD 
(10 
(78 
(COF 
TOFLD 
TY 


13137 PAGE 126 


/CHECK FOR FIELD BITS 
/YS NUMBER MINUS ? 
/YES © INPUT ERROR 
/SUBTRACT 8 

/1S NUMBER GiT, 7 ? 
/YES » JNPUT ERROR 
/NO = GET FIELB BUTS 


/MOVE TO BITS 6 © 8 | 
/GREATE CORRECT EDF INST, 
/MODIFY PROGRAM 

/GET ADDRESS 

/OCTAL ADORESS 

STORE ADORESS IN POINTER 
/GET WORD GOUNT 


ASTORE COUNT IN COUNTER 


ZEND OF WORD COUNT ? 
/NO GET NEXT WORD 


/TYPEQUT DATA FIELB 
GET DATA WORD 


“STORE OTA WORD, 
/CONVERT ABDRESS TO ASCi! 


/GCONVERT QATA TO ASCII 


/TERMINATE TEXT STRING 
/*YPE ADDR AND DATA 


ZINCREMENT DATA ADBRESS 
/RETURN TQ CHECK FOR END 
/OVERFLOW TO NEX? FIELB 
JINCREMENT DATA FIELD BITS 


/STORE NEW COF INSTRUCTION 
/RETURN TQ CHECK FOR END 











Ba Red es oe hae 


FRELO 4 





28417 
e824 
8617 


D1ALGe 


/,7¥ COMMAND 


Two, 


V2ES3 


2247 
OREG 
0617 
SAVOM 
2084 
AREG 
AG8e2 
BREG 
1521 
MQREG 
8195 
PFAC 
2338 
PFPC 
1122 
PTR 
1720 
OPAOR 
2184 
PAPT 
2324 
pstat 
28238 
cSrate 
8623 
MT2 
8128 
APT 
8038 
Xo 
2310 
SHREG 
8298 


PAGE 


6eAPRa72 


2002 
1900 
2000 
2000 
2000 
2000 
1202 
060 
1900 
1002 
oe80 
2200 


7088 
7880 


ARGUMENT TABLE 


/PO 
/FO0 
vA 

/B 

7MQ 
vac 
apc 
7yR 
7gP 
7a0 
“st 
/Ps 
4¥S 
/aP 


43137 PACE 107 


PROGRAM O REG 


FPP O REGISTER 


PROGRAM FPC 


OP ADDRESS 

ADRS 

STATUS 

PROGRAM STATES 
READ FPP STATES 
APT 


/X « INDEX REGISTERS 
/SH @ SHIFT REGISTER 


co™s 


ay 
: 
| J 
\ a 





7628 
2681 
2oe2 
2623 
2694 
7685 
686 
C607 
0610 
2644 
%64.2. 
C615 
2614 
0615 
2616 
0617 


= 


2a16 
2522 
2526 
2532 
2536 
2542 
2611 
2622 
2946 
2616 
2553 


2682 
2570 
2574 
8202 


DIALG2 


-_ 


VOSS be APRe72 13137 PAGE 198 


/REGISFER NAME TABLE 


REGESO, 


PQEQ 
FQEQ 
AEG 
BEG 
MGEQ 
ACEQ 
PCEQ 
PTREQ 
OPEO 
ADEQ 
STATEQ 
PSEQ 
RSEQ 
APEQ 
XEQ 

g 








FIELO 2 


2620 
2624 
8622 
0623 
0624 
0625 
2626 
2627 
2630 
B631 
%632 
2633 
2634 
8635 
2636 
8637 
0649 
0644 
84642 
2645 


0644 
8645 
2646 
0647 
8650 
634 
8682 
8639S 
9694 
8655 
0656 


0657 
2662 
26461 
2662 
2663 
0664 





S282 
1622 
3262 
2220 
1622 
6241 
3261 
2220 


OTALG2 V2eS 


Be aPReF2 


15137 PAGE 189 


/JCONVERT OCTAL WORD TO 6 BIT ASCII 


ASCi?, 


aASca, 


ASCi, 
ASC2, 
ASCS, 
ASC4, 
ASC5, 


ASC77, 


RTR 


ASC12 
aSe4 
Scie 
ASCi2 
12 
ASt3 
aSCi8 
ASG77 


ASC4 


/GET ADDRESS OF SATA WORD 
/SAVE 

/INCREMENT RETURN 

AGET FEXT ADDRESS 

/OATA FIELB 3 

/SAVE TEXT ADDRESS 
/INCREMENT RETURN 

/GET MASK 

/LEFT HALF 

/EXTRACT LOFT HALF OF OaTA 
/MOVE TO REGHT HALP 


/GONVERT LEFT HALF. 
/INCREMENT TEXT ADDRESS 

/GET MASK . 

AEXTRACT RIGHT HALF OF DATA WORD 
ACONVERT RIGHTY HALF 

/EXIT 


CONVERT 2 OCTAL OfctrTs 
/SAVE DATA 

/RESTQRE DATA 

MOVE DATA 1 DIGIT LEFT 


/DOELETE RIGHT DICIt? 
/GET CORRE@T RIGHT DIGIT 
/SAVE ONLY 2 CORRECT OlcIts 
ZINSERT AS@It MOOLPIER 
/STORE CONVERTED DATA 
/RETURN 


FYELO 2 


2665 
2666 
2667 
2672 
0674 
0672 
0673 
2674 
2675 
£676 
0677 
8700 
0704 
0702 
2783 
0704 
0705 
0706 
0707 
0710 


744 
e742 
8743 
0744 
a7¢5 
O746 
0747 
2728 
8721 
2722 
9723 


2724 
8725 
0726 
2727 
2738 
07314 
1732 
A735 
2734 
8735 
7736 
0737 
0748 
O741 
742 


2900 
1335 
4324 
1336 
4324 
1665 
6244 
2265 
7452 
5665 
3323 
4723 
7142 
7842 
7042 
4314 
1723 
2323 
43i4 
5300 


8000 
8342 
7430 
5272 
4337 
7540 
1342 
1342 
4324 
5744 
2008 


2920 
6046 
6044 
5326 
6042 
7220 
6034 
5724 
5132 
%215 
M212 
774 
A122 
A240 
2077 


1242 


DIAL12 


/TYPE 6 BIT aAS€l!] TEXT STRINGS 


TYP12, 


TYPA, 


TMES, 


TTY, 


T2435, 
Tehc, 
™M4¢0, 
T1822, 
T2402, 
177, 


VO23 


ts 

TAD 
JMS 
TAD 
JMS 
TAD 
COF 
1$2 
SNA 
JMP 
DCA 


TAD 3 


Chl, 
RTR 
RTR 
JMS 
TAD 
1$2 
JMS 
JMP 


77 
PAGE 


RTR 


6eAPRe72 


Tei5 
TTY 
T2t2 


17? 


TYP B65 
TM48 


Tide 
7242 
TTY 

TYPA 


TTY 
KEYCKD 


—_ 


43137 Pace 1%¢ 


/GET CARRAIGE RETURN 
/TYPE LT 

AGET LINE PEED 

/TYPE LT 

/GET TEXT ADDRESS 

/DATA FIELO 4 

/INCREMENT RETURN 

/END OF TEXT TABLE ? 

/YES » RETURN 

/NO = SAVE ADDRESS 

/GET TEXT WORD 

/MOVE LEFT CHARACTER TO RIGHT HALF 


/CONVERT AND TYPE LEFT CHARACTER 
/GET TEXT WORD 

PINGREMENT TEX? ADBRESS 

/CONVERT AND +¥PE RIGHT HALF 

700 {tf AGAIN 


Atay piace HALF 
/END OF TEXT 

/YES «@ GET NEX? ADBRESS 

/SUBTRACYT 48 

/LESS THAN 4 

/YES e 398 SERIES BHARACTER e add igg 
/ADO ORIGINAL 428 @ 262 

/TYPE CHARACTER 

/RETURN 


/OUTPUT CHARACTER fO Ty 
AWATT FOR PLAG 


/CLEAR FLAG 
/INPUT FROM KEYBOARD ? 


/NO © RETURN 
/YES © ANSWER KEYBOARD REQUEST 











FIELO 4 


1200 
1284 
1922 
1083 
1904 
1095 
1286 
1287 
1242 
1811 
1042 
1243 
1014 
1015 
1046 
1047 
1020 
1921 
1922 
1023 
1924 
1925 
1826 
1327 
13832 
1834 
1832 
1233 
1934 
1035 
1036 
1037 
1240 
1044 
1942 
1943 
12944 
1945 
1946 
1047 
1230 
1234 





DTALL2 


ERR12, 


DATERR, 


DATC4, 


V883 


a 
OCA 
Las 
RAL 


SPA CLA 


JMP 
JMS 
ERRET 


EROUTSeS 


JMS 
AND 


RAL Cob 


TAD 


My 
DTXT1+5 


6eAPRe72 


ERRET 


NOREP 
ASCi 


CODE 
(7 


(DATTXT 
ERATS 
cEtTs 
ETXTS 
ERRTS 
GEtTS 
ETxT2 
cObE 

? 


(DATABL 
ERRT’ 
GEfTs 


INQIR 
Dafcd 
SPACE 
GETREG 


CODE 
(79 
WORD2 
patcs 
Dafcs 


1*2 
CEFREG 


13937 PAGE 141 


/SAVE RETURN ADOR 


YS SW 4 SET ? 
/YES © NO REPORT 
/CONV RETURN ABOR fO ASCII 


/GEY ERROR COOF 
/TYPE OF ERROR 
/AODRESS OF TEXT TABLE 


/GET ADOR PROM FEELD 4 
/STORE IN TYPE ADOR STRING 


/GET SECONS adOR 7 
/STORE IN FYPE ABOR STRING 
/GET ERROR CODF 


MULTEPLY BY 2 | 
/GET ADDR OF DATA TABLE 


/GET FIRST WORD 
/INDIRECT ADDRESS 
/SAVE OATA ADDOREBS 


/PUT SPACES IN TEX? 
/CONVERT TO aSe! 


/GET ERROR COOE 

/WORD COUN? 

/FINISHED FIRS? WORD 
/YNCREMENT DATA ADGRESS 


JCONVERT SECOND SATA WORD 


1195 
1186 
1107 
1ii2 


Laid 
1112 


1113 
1144 
1145 


1116 
1147 
1122 


2312 
43416 
754192 
4324 
3262 
a77qi 
Age 
1736 
4776! 
372 
7630 
5274 
2262 
1262 
3272 
47744 
4909 
1741 


4767! 
2332 
2742 
1727 
2742 
14736 
e009 
7694 
7700 
4125 
6201 
6202 
5602 


8800 
9980 


6204 
6282 
5766 


2820 
1742 
5716 


OJALL2 


WORD2, 


DATC2, 


ERRTP, 
ETXT4, 
ETXT2, 


NOREP, 


FERRET, 
ERRT4, 


DOTERD, 


GETT4, 


Vda3 


1$2 
JMS 
SPA 
JMS 
OCA 
JMS 

g 
OTxXT2 
JMS 
ANO 


SNA CLA 


JMP 
1$z 
rad 
DCA 
JMS 


8 
DTXT2e3 


JMS 
EROUT 
CRLF 
DTXTs 
CRLF 
DTXT2 


g 
LAs 
S 


MA CLA 


JMP 


TAD |] 
JMP I 


6eAPRaF2 
ERRT4 
GETTY 
INOIR 


DAtC2 
SETREG 


CODE 
(72 
ERRTP 
DATC2 
DAtC2 


»%2 
GETREG 


TYP19 


KEYCKL 
88 


a2 
ERRIO 


88 
28 
(DOTERR 


ERRT4 
GetTs 


aim, 


f 


43137 PAGE 112 
/GET SECONS WORD 
AINDIRECT aADORESS 
/CONVERT LSW 

AGET ERROR CODE 
/WORD COUNT 

/YYPE DATA 

/GET ADDR OF LSW 


/CONVERT LSW 


/TYPE DATA 


/SHB SET 7 . 
/NO © WAIT FOR KEYGOARO INPUT 


GQ BaCK Ta FIELS @ 
JEXTT 


JLINK TO DOTERR IN FIELD @ 


/GET DATA WORD 














FYE. 1 


1121 
1122 
1123 
1124 
1125 
1126 
1127 
1132 
113% 
1132 
1133 
1134 
1135 
1136 
1137 
1142 
1141 
1142 
£145 
1144 
1145 
1146 
1147 
1152 
11921 
1132 
1153 


1134 
1155 


1162 
1168 
1164 
1165 
4166 
1167 
1172 
4271 
1172 
1178 
£274 
1175 
1176 
1177 


NTALi2 Ves 


6eAPRal2 


43137 PAGE 123 


/JINOTRECT DATA = YSED FOR MEMORY ERROR 


INSTR, 


EATS,» 
EDAT2, 


g 

AND 
OCA 
CDF 
TAO 
1$Z 
AND 
RAL 
RTL 
TAO 
DCA 
YAO 
DCA 
COF 
TAD 
{$2 
CDF 
OCA 
TAD 
DCA 
COF 
TAO 
COF 
DCA 
COF 
TAD 
JMP 


g 
J 


PAGE 


(777 
EDAT2 
on 

1 EDAT2 
EDAT2 


CLL 


1 EDAT2 
1 EOAT2 


I (T4 


1 INDIR 


/EXTRACT REGISTER ADDRESS 
/SAVE ADORESS 

/GET REGISTER DATA 

AFROM FYIELO B 

/INCREMENY REGISTER ADBRESS 
/EXTRACT FYELO BITS 

MOVE TO BITS 608 


/MAKE COF INSTRUCTION 
/MODIFY PROGRAM 

/GET NEXT REGISTER DATA 
/SAVE | 
/CHANGE TO DATA MEMORY FIELD 
GET DATA 

/INCREMENT ADORESS 

/OATA FIELO @ 

/STORE DATA IN FIELD @ 

/GET COF INSTRUCTION 

/MODIFY PROGRAM 

/CHANGE TO DATA MEMORY FIELO 
/GET SECONDS DATA WORS 


/STORE IN FIELO @ 
ARESTORE OATA FYELO 

GET FIELO @ bath tTODReSS 
/RETURN 





1228 
1204 
12%2 
4283 
1204 
1205 
1206 
1287 
1240 
1244 
1242 


1214 
1215 


1246 
1247 
1220 
1224 
1222 
1223 
1224 


1373 
1374 
1375 
4376 
4397 


“BAR 
1377 
3216 
1376 


1374 
3446 


7628 


2022 
6201 
1773 
3828 
1428 
6241 
56146 


7317 
4849 
7773 
1735 
1726 
1422 


DPALi2 


V2IS 


6eAPRe72 


7ZFILL YEXT BUFFER WITH SPACES 


SPACE, 


CODE, 


rs 

TAD 
oCcA 
Tad 
OCA 
TAD 
OCA 
Tad 
OCA 
TAD 
OCA 
1Sz 
JMP 
JMP 


2 

COF 
TAD 
OCA 
TAO 
cOF 
JMP 


PAGE 


COTXTLed 


16 
(DOTXTZel 
17 
(25 
Tig 
(4048 
146 
(4948 
47 
Tie 

, 95 
SPACE 


oo 
(ERR 
Tio 
Tio 
18) 
cObE 


j 
' + 


13137 PAGE i114 


/ADDRESS OF FIRST BUFFER 
/SAVE 

/ADDRESS OF SECOND BUFFER 
/SAVE 

7WORD COUNT 

/SET COUNTER 

/ASCI] SPAGES 

/STORE IN FIRST BUFFER 
/ASCY!I SPACES 

/STORE IN SECOND BUFFER 
/INCREMENT COUNTER 
/STORE NEX?® WORD 

/RETURN 


/GET CODE FROM FIELD 2 
GET ADDRESS OF ERROR CODE 
ASAVE 

/GET ERROR CODE 

/RESTORE DATA PIELB 











FYELO 2 


1479 
1491 
14%2 


1498 
1424 
1495 


1486 
1487 
£418 


1441 
1442 
1443 


1444 
1415 
1446 


1447 
1426 
1421 


1422 
1428 
1424 


1425 
4426 
1427 


1432 
1431 
1432 


1438 
1434 
1435 


1436 
1437 
1442 


1444 
1442 
1443 





2812 
2084 
1076 


75280 
2018 
1237 


3084 
2016 
1623 


5288 
2038 
2053 


7420 
2013 
243g 


7440 
aB34 
2654 


7448 
2847 
SOG4 


7448 
2063 
3268 


7449 
2072 
3472 


g004 
2074 
4oi2 


2804 
2076 


4937 


OB04 
2122 
4266 


ATALL2 


yOOS 


SETTAB, 8210 


TINT 
ENINIT 


7530 
TFETCH 
FETCHe4 


B24 
TTRAP 
TRAP 


5280 
TOEP 
DEPLi4 


7420 
TEXIT 
EXITS 


7448 
TOPAS 


“OP ADDS 


7449 
TFAOD 


FapDs 


7449 
TMULT 
FMUL Tod 


7449 
TOLV 
PFDI Ved 


B284 
TLOX 
LOX4 


8204 
TALN 
ALN 


2094 
TATX 
ATX4 


6#APReP2 


135137 PAGE 115 


AUNIATE 


/FETCH 


/YRAPPED INSTRUCTIONS 


/QEPOSIT 


/FEXIT 


/O, P, add = SUBTRACT 


/FLOATING PT, ADS & SUBTRACT 


AMULTIPLY 


DIVIDE 


/\0X 


7 ALN 


/ATX 


1444 
1445 
1446 


1447 
1452 
1451 


1432 
1453 
1454 


1455 
1456 
1437 


1443 
44614 
1462 


1443 
1464 
14465 


1466 
4467 
1472 


1474 
4472 
£473 


1474 
1475 
1476 


1477 
1549 
1524 


15%2 
1543 
1524 


15235 
1526 
1527 


1512 
1511 
1512 


2024 
2422 
4435 


2004 
2194 
4474 


2004 
2426 
$644 


2404 
2412 
4643 


2004 
2412 
5054 


8904 
2144 
5230 


2004 
2126 
5046 


OBB4 
2142 
5154 


C084 
2143 
5064 


0004 
2447 
5074 


P9204 
2158 
5077 


BO24 
2456 
5145 


2004 
2740 
3427 


NIALL 


VOSS 


2224 
TXTA 
XTAL 


2204 
TJXN 
JXNG 


a004 
TJSR 
JSRi 


0424 
TUSA 
JSA2 


8224 
TYAC 
JACI 


8084 
TTRUE 
JTRUES 


2084 
TFALSE 
JPALSE od 


oga4 
TCLA 
FCLASdL 


0004 
TSTF 
FSTF ed 


2084 
TSTO 


FSTDel 


2B4 
TNEG 
NEGI 


O2a4 
TNORM 
NORM4 


2084 
CRLF 
FPAUSE #4 


6H APRe72 


am 


13137 PAGE 146 


/XTA 


A JXN 


JSR 


/ da 


JAC 


/JMP TRUE 


/JMP FALSE 


ACA 


STF 


STO 


/FNEG 


/NORM 


/PAUSE 











FIELN fd 


1543 
1514 
1515 


1516 
1547 
1520 


1521 
1522 
1528 


1524 
1525 
1526 


1527 
1532 
1534 


1532 
1533 
1534 
1535 
1536 
1537 
1542 
1544 
1542 
1543 
1544 
1545 
1546 
1547 
1552 





704 
2203 
5160 


2004 
2226 
5201 


9004 
2211 
5213 


7442 
2214 
5250 


7449 
2217 
5274 


1612 
1622 
1637 


OLAL42 


DATTXT, 


VO23 


2204 
YSETSB 
SETB4 


S204 
TSETX 
SETX4 


G24 
TAQOX 
ADOXY 


7449 
TSTA 


FSTAed 


7449 
TLOA 


PLOAedL 


FSIS 
PSS 


6eAPRe72 


13137 


/SETB 


/SETX 


/ADOX 


ASTA 


“DA 


PAGE 117 


er ne: ee 


FIELD 4 


1551 
1552 
1553 
1554 
1555 
1556 
1557 
1562 
1561 
1562 
1568 
1564 
1565 
1566 
1567 
1570 
1574 


7BB1 
222¢ 
A882 
B24 
4044 
4735 
i2i 
2845 
2554 
2053 
S501 
2050 
2742 
2742 
2740 
2748 
2748 


DTALI9 


NATAL, 


V223 6eaPRe72 


we a4 

MY¥q 

SAVOM 

OMSW 

OP ADR 4202 
MFLO 4202 
SAVOP 
OPADRe4 
STSAVE 

PSTAT 

SAVAPT 
PAPTei 

CRLF 

CRLF 

CRLF 

CRLF 

CRLF 


} y 
i 
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/JTIME STATE © COSE 202 
/O REGISTER «= CODE Baaf 
/MEMORY © CODE 2082 
JOP ADDRESS =~ CODE 2003 
STATUS = CODE 2204 
7ZADDRS = CODE 8295 




















FYIELO 2 


1572 
1573 
1574 
1575 
1576 
1577 
1622 


1684 
1622 
1685 
1684 
1685 


1606 
1607 
1640 
1644 
1642 
1643 
1644 
1645 
1646 
1647 
1620 


1621 
1622 
1623 
1624 
1625 


1626 
1627 
1632 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1642 
1641 
1642 


16438 
1644 
1645 
1646 
1647 
652 


4023 
2404 
2425 
2340 
5248 
2620 
2042 


2800 
4052 
4920 
2247 
8742 


aoe 
e090 
2441 
1505 
4923 
2491 
2495 
4952 
494g 
3620 
2048 


Ly: 
4952 
4920 
2247 
0749 


2020 
4004 
0404 
2223 
4052 
4026 
2022 
4000 
8282 
4852 
4020 
2217 
0742 


A822 
2620 
20655 
6162 
4904 
1124 
4816 


DTALI2 V223 


FSTIS, TEXT 


PSTIS, TEXT 


Q 
FSIS, TEXT 


g 
PSS, TEXT 


FAPIS, TEXT 


PAPIS, TEXT 


2 
STRTER, TEXT 


6e\PRay2 43137 PAGE 149 


" STATUS # FPP 


" « PROG " 


"TEME STATE ® FPR " 


" » PROG " 


" ADDRS # FPP " 


" » PROG " 


"FPPw12 SID NOT START" 


Heenan temem  e 


“ 


FIELD 4 


1682 
1633 
1654 
1655 


1656 
1657 
1660 
1664 
1662 
1643 
1664 
1665 
1666 
1687 
1670 
1674 
1672 


1673 
1674 
1675 
1676 
4677 
1782 
1704 
4782 


1783 
1784 
1785 
1726 
1767 


1748 
4744 
1742 
1743 
4744 
1745 
1746 
1747 
1720 
1721 
1722 
1723 
1724 
1725 


1726 
1727 
1730 
17324 
1732 
17353 


1724 
4223 
2484 
2224 


ePAQ 
1749 
2225 
7749 
5240 
4206 
28208 
4922 
080 


4920 
2247 
0742 


S289 
1595 
1547 
2234 
4982 
4949 
0620 
2049 


ogeg 
4952 
4029 
2247 
0749 


0202 
1720 
4083 
3404 
2242 
3242 
4986 
2820 
4992 
M002 
4052 
4920 
2217 
A742 


ABAD 
7777 
7777 
4049 
7777 
aga! 


NTALi2 


PQUS, 


POIs, 


FMIS, 


PMqS, 


FOPIS, 


POPIS, 


OTXT 44 


V828 


TEXT 


8 
TEXT 


g 
TEXT 


@ 
TEXT 


TEXT 


0 
TEXT 


) 
TEXT 


6eaPRe72 15337 PAGE 119014 


"Q REG » FPP " 


"eo PROG " 


"MEMORY @ FPP ® 


" @ PROG " 


"OP ADDR ® FPP " 


" @ PROG " 


"2227 2777" 








FIELD 4 


1734 
1735 
1736 
1737 
1748 
1744 
1742 
17438 
1744 





4022 
Z22AQ 
7777 
7777 
4942 
7777 
7777 
4000 
2020 


MJALI2 Veas 


a 
O™XT2, TEXT 


PAGE 
ENT, TEXT 


TINIT, TEXT 


TFETGH, TEXT 
TEXT #, TEXT 


TTRAP, TEXT 


TOEP, TEXT 


TOPAS, TEXT 


Ge APRa72 43137 PAGE 11922 


"2222 2777 " 


"ENTER * 


WINTATE " 


"FETCH" 


"REXITA 


"TRAPPED INSTRUCTION" 


"DEPOS{T" 


"0", P, ADD = SUBTRACT " 


C 


go eas epee! 


FIELS 4 DJAL4H V293 6eAPRe72 43137 PAGE 11983 ; 


2246 4829 

2247 8 7%6144 TFADD, TEXT MPLOATING PT, ADD = SYB " 
2252 1731 

2651 2443 

2052 1637 

2083 4222 

2234 2454 

2955 4904 

2056 3404 

2057 4055 

2262 4023 

2061 2502 

2062 4992 

2963 4525 MULT, TEXT "MULTIPLY " 
2864 1424 

2065 1120 

2066 1434 

2067 4902 

2078 «3441 «60 TOTV, «TEXT = "DEVIDE "" 
2071 2643 

2072 9405 

2073 4008 . 
2074 1404 8 8TLDX, TEXT "LOxe 
2075 308e 

2076 0144 TALN, TEXT = “ALNM 
2077 1609 

2100 0124 TATX, TEXT  "APXM 
2101 3eee 

2102 3824 TXTA, TEXT  "Xtan 
2103 2199 

2194 1238 TUXN, TEXT = "JXNM 
2105 16098 

2196 1223  TySR, TEXT "ySR" 
2107 2209 

2140 1223  TYSA, TEXT "ysa" 
2141 9198 


2142 1201 TAC, TEXT "Jace 
2113 2320 


2114 1215 TTRUE, TEXT "JMP CONDITION TRUE " 
2145 2849 
24146 43847 
2417 1624 
242e2 i124 
2421 1117 
2422 1642 
2123 2422 
2424 2595 
2425 4822 
2126 1215 TFALSE, TEXT "IMP CONDITION FALSE" 
2127 2042 
214328 @317 
21314 1694 
2132 1124 














Freyo 2 


2133 
2434 
2135 
2136 
21437 
21448 
2141 
2142 
2143 
2144 
2445 
2146 
2147 
2430 
2451 
2182 
2153 
2454 
2155 
214536 
2137 
2168 
2164 
2162 
2163 
2164 
2465 
2166 
2167 
2479 
2474 
2472 
2478 
2174 
2175 
2176 
2177 





1117 
1642 
2624 
1423 
2549 
2683 
1404 
4080 
2324 
122 
244¢ 
2608 
2324 
2122 
2442 
0400 
8616 
0597 
4o02 
2616 


1624 
1116 


2585 
242 
4022 
2805 
2432 
4830 
S124 
R432 
4822 
26238 
2424 
4222 
PrO14 
O4Ad 
4280 


Olali2 Veas 


TOLA, TEXT 


TSTF, TEXT 
TSTD0, TEXT 


TNEG, TEXT 
YTNORM, TEXT 


TPAUSE, TEXT 


TSETB, TEXT 
TSETX, TEXT 
TADOX, TEXT 
TSTA, TEXT 


TLOA, TEXT 


6egPRe72 13337 PAGE 11984 


"Pela 


"START FM 


"SfaRT 0" 


"PNEG © 
"FNORM" 


"POP PAUSE,.:2:A4LT MODE 70 CONTINUE * 


aie 
<2 


"SETB 


"SETX " 


"ADDX " 


"FSTA " 


C(FipaA " 


eos 


i 





ne a a ee na ee a 2 a et ES 





S*6ht 39d 


—w 


Lelet 


Cheud¥eg 


SBA 


es7vic 





(Se 


rer nti regen err etree tan 


rien queen RR a eee eR? 


FIELD 2 


0516 
2449 
1525 
1424 
1120 
1431 
4000 
B4i4 
26141 
2485 
4002 
3142 
3205 
2247 
4ga0 
0441 
2624 
0405 
4026 
1130 
0504 
4029 
4741 
1624 
4917 
2605 
2206 
1427 
2780 
a516 
0449 
0444 
2611 
8405 


—6- 4880 


0516 
0442 
1494 
3200 
0516 
944g 
0114 
1600 
0516 
0449 
0124 
3920 
0516 
0440 
3224 
0190 
2546 


ENOMUL, 


OyVed, 


DIVOV, 


DIVOK, 


LOXOK, 


ALNOK, 


ATXOK, 


XTAQK,s 


UXNOK, 


V2BS 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


6eAPRe72 . 435037 PAGE 128 


"END MULTIPLY ™ 


"OIVIDE BY ZERO " 


"OfVIDE FIXED POINT OVERFLOW” 


"END DIVIDE " 


"END Lox 
"END ALN" 
"END ATX" 
"END XTA" 


"END JXN" fi o™ 


FIELS 2 


23526 
2347 
2312 
2311 
2342 
2313 
2344 
2345 
2316 
2347 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2330 
2334 


2332 
2333 
2334 
2335 
2336 
2337 
2348 


2341 
2342 
2343 
2344 
2345 
2346 


2347 
2352 
2334 
2332 
2353 


2354 
2355 
2356 
2357 
2362 


2364 
2542 
2363 
2364 
2565 
2366 


2440 
1230 
1630 
516 
0449 
1223 
2200 
2546 
0442 
1223 
2109 
546 
8449 
8104 
3900 
8546 
0449 
0623 
2404 
4g00 


8522 
2217 
2242 
7777 
7797 
4052 
4989 


9546 
0449 
0405 
2017 
2344 
2400 


2516 
2425 
2286 
1447 
2788 


0546 
M449 
2422 
8198 
S520 


A516 
M442 
0447 
2982 
1485 
4022 


OFALL2 


JSROK » 


JSAQK, 


ADXOK, 


STAQK, 


FROUT, 


DEPOK, 


VFER, 


EOP, 


VOB8 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


DPASOK, TEXT 


li, 


6eAPRe72 43137 PAGE 1200e1 


"END YSR" 


"END JSA* 


"END ADX" 


"END FSTA " 


"ERROR 27777 6 " 


"END DEPOSIT" 


"UNDERFLOW" 


"END TRACE” 


"END DOUBLE PRECISION ADDeSUBTRACT" 








2443 
2444 
2445 
2416 
2447 


24298 
2424 
2422 
2423 
2424 
2425 
2426 
2427 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 


2442 
2441 
2442 
2443 
2444 


2445 
2446 
2447 
2439 
2451 


2245 
AS44 
2311 
1746 
4221 
2434 
3523 
2922 
2422 
2125 
2420 


2456 
2056 
4001 
404 
5523 
2502 
2422 
2183 
244g 
1726 
a522 
0614 
1727 
4008 


9546 
0449 
8614 
14704 
24i4 
1607 
4929 
1624 
5649 
2104 
2455 
2325 
2224 
2201 
0324 
4002 


A516 
0449 
CO28 
249) 
4229 


7516 
r44ag 
C644 
0404 
4002 


DYALIO 


VOSS 


OPFLOW, TEXT 


ENOFAD, TEXT 


FSTAQK, TEXT 


LDAQK, 


TEXT 


6° APRa72 43137 PASE 12802 


"DP, ADDeSUBYRACT OVERFLOW " 


"END FLOATING PNT, ADD@SUBTRACT © 


"END FSTA " 


"END FLDA " 








q > 


FIELD 1 


2482 
2453 
2454 
2455 
2456 
2457 


2462 
24614 
2462 
2463 
2464 


2465 


2466 
2467 
2472 
2474 
2472 
2473 
2474 
2495 
246 
2477 
2500 
2504 
2502 
2583 
2504 
2505 
2506 
2507 
2540 
2541 
2542 
2513 
2514 
2515 


2516 
25147 
2520 
2521 


e522 
2528 
2524 
2525 


2526 
2527 
2530 


7946 
2440 
1116 
1121 
2405 
4080 


2546 
0449 
2645 
24A3 
1220 


5.220 


7777 
7797 
4040 
7797 
7797 
4940 
7797 
7797 
4040 
7797 
7797 
4040 
7797 
7797 
4242 
7797 
7797 
4942 
7797 
7797 
4940 
7797 
7777 
4982 


2047 
4075 
48423 
4002 


2617 
4075 
4040 
4222 


149 
7540 
4242 


OTALI2 


INOK, 


SFOK, 


AST, 


ROUT, 


POEQ, 


FOEQ, 


AEQ, 


V28S 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


6waPRe72 


"END INITIATE " 


"END FETCH" 


Wet 

"2972? «#2727 
"PO g LL 
"Fe £ rT 
WA 3 99 


7727 


_ 


135137 PAGE 12003 


2927 0«2727 " 


2779 


7727 292? 











FYELO 1 


2534 


2532 
2533 
2534 
2535 


2536 
2537 
2542 
2541 


2542 
2543 
2544 
2545 


2546 
2547 
25350 
2531 
2582 


2553 
2534 
2535 
2556 
2557 


2560 
2564 
2562 
2563 
2544 
2565 
2566 
2567 


25708 
2571 
2572 
25738 


2574 
2575 
2576 
2577 
2682 
26714 


262 
26A8 
2604 
2605 
2626 


4902 


8122 
2442 
7542 
4002 


1116 
8425 
3842 
2205 
8728 
42806 


2620 
2040 
2324 
8124 
1542 


DITALL2 Vva2a3 


BEQ, TEXT 
MQEQ, TEXT 
ACEQ, TEXT 
OPEQ, TEXT 


STATEQ, TEXT 


. PSEQ, TEXT 
APEQ, TEXT 
XE Qs TEXT 


RSEQ, TEXT 


6eaPRa72 43137 


"MO 2 ef 


"Op ADDR 3" 


"STfaTus « " 


"PROG STATE IS 


"APT 8 J 


"INDEX REGS " 


"Fpp STATE IS " 





PAGE 12084 








. i 


FIELM 1 


26%7 
2612 


2611 
26142 
2613 
2644 
2645 


2616 
2617 
2628 
2624 


2622 
2628 
2624 
2625 


2626 
2627 
2638 
2631 
2632 
2633 
2634 
2635 


2636 
2637 
2649 
2641 
2642 
2643 
2644 
2645 


2646 
2647 
2658 
2654 
2652 
2633 
2654 


2655 
2656 
2657 
2662 
2661 
2662 
2668 
2664 
2665 


1125 
4032 


2622 
9349 


75.49 


4949 
4099 


0124 
2228 
4975 
AB2S 


A122 


4049 
7542 
4900 


0316 
2435 
2242 
2324 
e520 
4015 
1724 
509 


8538 
1124 
4823 
2495 
2842 
1317 
0485 
4280 


7797 
7777 
4940 
49200 
7777 
7777 
4000 


e522 
2217 
2249 
23e4 
26414 
1627 
4004 
2024 
4oi4 


OVALL2 


pCEQ, 


ADEQ, 


PIREQ, 


tNSTeP, 


OUTSTP, 


ASADDR, 


ADDR, 


APTERR, 


V89S 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


i ‘ 
: 


6eaPRe72 13137 PAGE 120«5 


"Eee P 9 


"ADRS « " 
"IR g 


"ENTER STEP MQDE" 


"EXIT STEP MODE * 


12929 " 
"R277" 


"ERROR SAVING APT JN EXyTt 




















1649 
75302 
1124 


2909 
$252 
5243 
2422 
2103 
2549 
5252 
5240 
4945 
aida 
1604 
8503 
4061 
6255 
1462 
1483 


gag 
#1444 
1449 
8593 
1747 
2342 
2448 
2247 
2507 
41249 
4371 
4945 
2523 
2440 
3205 
6gi1 
1623 
2401 
1444 
2504 


22900 
7777 
4922 


IBID 
3222 


DyalLie VeaS 6eaPRe72 43137 PAGE 12006 


i) 
MDEC, TEXT Meee TRACE o#@ MAINDEC 120eD08LC" 


g aes 
ECONO, TEXT MALL ECO’S THROUGH #9 MUST BE SNSTALLES® 


Q 
QMK, TEXT "27 " 


CRLF, @ 
», 8700841000 











Alo, ar. jm, ; 
AFLOATING PSINT ZXERSISER DYAL42 Veas BeAPRe72 13137 PAGE 121 % 


JFLOATING POINT EXEREISER 
JP3P eS SODE STARTING LOCATION 292 


/ 
JFLOAYTING POINT SYMBOL TABLE 


/ 

IAB EFEX] Ts2a8g 
2932 EFCLABS@222 
2026 EFLOAS#002 
COA3 EFNEGSO203° 
2224 EFFNORMs@204 
692 EFSTA862008 
1202 FFADDSi 202 
52292 EFADDMs522a 
2809 EFSUB=2000 
2499 FLOXs@i 0g 
1121 ESETXsdi01 
1122 ESETBs4144 
2024 EJXNe2004 
1134 EJSRsii34 
1121 EJSAsLi2i 
1981 EJEQs1 604 
1834 EFJAs 1832 
1854 EJLTei@54 
1961 EJGTa81 064 
1941 EJNEaL044 
28987 EJAC8#2807 
82428 EALNs@010 
29208 EATXs@820 
OOSe: EXTAS@OSe 
949 FFNOPe8249d 
4909 EFMUL 84080 
7808 EFMULMs7@2@ 
3282 EFDIVseS2a0 
C112 EADDX#8110 
9B25 ESTRTFsd005 
8806 ESTRIORDO06 
6082 TABLEL# 6000 
6499 TABLE 286406 
7322 TABLES8 7000 


7482 TABLE 4S87400 








/FLOATING POINT EXERSISER OJALI@ Vas 6eAPRe72 13137 
Atthittdl 
/FLOATING POINT CODE AREA 
SAMA AA 


/ 

/THIS FIRST SECTION OF THE FPP ARI THEMATIC 
/TEST OPERATES ON RANDOM NUMBER ARGUMENTS 
JIN PABLEL IF FLOATING POINT MODE 

JOR TABLES IF BOUBLE PRECISION MODE 

/THE OPERATIONS ARE OF THE FORM Added 

JOR AwA/A WHERE THE RESULT EXPECTED {S 
/THE RANDOM NUMBER ARGUMENT ITSELF 

/TWE RESULTS ARE STORED IN 

/TABLE2 IF FLOATING POINT MODE 

/OR FABLES JTF DOUBLE PRECISION MODE 

/THESE TABLES ARE 400 OCTAL LOCATIONS 

JIN LENGTH AND ARE LOCATED IN NUMERICAL SEQUENCE 
STARTING AT LOCATION 6288 OF LOWER 4K 

/ 


/ 

JEXECUTE IN FLOATING POINT MODE 
/MOVE RANDOM ARG TABLEL TO TABLE2 
/ 


PACE 122 


: 7 
‘ 
N 


/FLOATING SQINT EXERCISER 


4aa2 
4971 
4202 
6223 
4274 
4925 
4226 
4927 
4919 
4911 
4912 
4Q415 
4914 
4915 
4916 
42347 
4922 
4924 
4922 
4323 
4924 
4225 
4926 
4927 
4330 
49314 
4932 
4333 
4934 
435 
4936 
4337 


4022 
1411 
5720 
1194 
3016 
006 
2234 
2023 
1231 
5041 
2842 
204g 
1434 
4476 
1131 
4734 
1124 
5237 
1034 
4049 
905 
O541 
8775 
6531 
6375 
4431 
4536 
2401 
4g24 
aee2 
1210 
1041 
413 


ESTART, 


FPP, 


FPPiR, 


MJALL2 VB8S 


a42g2 
ESETS 
SASE 
FSETX 
XREGL 
ESTRTO 
EXTA!L 
FATX!S 
EA 
LINK#e 
EFNOP 
EFNOP 
EWSR 
FSET 
EJSR 
RANGEN 
EUSA 
LINK 

EWA 

FPPe 
ESTRTF 
EFLOAISA4 
TABLELeS 
EFSTAIBS4 
TABLEQeS 
EJSR 
FCMPR 
EWXN{ 180 
FPPiR 
EPCLA 

EF ADD! 219 
EWJNE 
FPPL 


li, 


f 
i 


6eAPRe72 43337 PAGE i283 


/LOAD X44 
/RESET X3 POR REENTRY 


/SETUP FOR TST 


/LOAD FROM TABLES 

/STORE JN TABLE 2 

/GOMPARE TABLES WITH TABLE? 
/COMPLETEQ BLOCK 

/YES 


/LOCK ONTO YS? 
/\F OFFSET 48 1S NON#ZERO 











/FLOAYING POINT 


4942 
4944 
4242 
4243 
4944 
4945 
4946 
4947 
4959 
4981 
4982 
4933 
4954 
4955 
4956 
4957 
4962 
4961 
4962 


4963 
4364 
4965 
4966 
4267 
4970 
4g74 
4972 
O73 
OB 7G 
4275 
42076 
4977 
4122 
4401 
4182 
41443 
4104 
4165 
4496 
4127 
41108 
atti 


EXERCISER 


1134 
4643 
1121 
5037 
1934 
4063 
8206 
544 
6776 
6534 
7376 
1434 
4746 
2104 
4947 
2802 
1240 
1044 
4949 


1434 
4476 
4121 
5037 
1034 
4412 
0005 
0544 


5775 


1444 
5775 
2441 
5775 
6531 
6375 
1131 
4560 
2121 
4272 
A082 
1210 
12414 
4063 


DYALL2 y@as 


GeAPRe72 43137 PAGE 124 


/ 
ZEXECUTE IN DOUBLE PRECISION MODE 
/MOVE RANDOM ARG TABLES TQ TABLE4 


/ 
FPP2, 


FPP2R, 


/ 


FYSR 
NPSET 
EUSA 

L INK 

EWA 

PPPS 
ESTRTO 
EFLOA{S5i4 
TABLESea2 
EFSTAIS34 
TABLE4a2 
EWSR 
OPCMPR 
EUXN!162 
FPP2R 
EFCLA 

EF ADD {212 
EWJNE 

FPP2 


/SETUP FOR JST 


7,0A0 RANDOM ARG 

/FROM TABLES 

/STORE SAME 

/\N TABLES 

/JMP=SAVE RETURN 

7¥O COMPARE SVB 
COMPLETED BLOCK 


AYES 
/LOCK ONTO TST 
/\F OFFSET 142 1S NONeZERO 


/EXEGUTE IN FLOATING POINT MODE 


/A00 SUBTRACT TEST 


/ 
FPPS, 


FPPSR, 


EJSR 

FSET 

EWSA 

LINK 

EJA 

FPP4 
EFSTRTF 
EFLOA{S11 
YABLELaS 
EFADD {414 
TABLELeS 
EFSUBI 411 
TABLELaS 
EFSTAISS4L 
TABLE2#S 
EJSR 
FOMPAS 
EJXN{ 182 
FPPSR 
EFCLA 
EFA0D(212 
EWNE 

FPP 


/JMPeSAVE RETURN 
/SETUP SUB 


/,0AD RANDOM ARG 
/FROM TABLES 
(heh 


/Adheod 
STORE IN TABLE? 
/JMPeSAVE RETURN 
/COMPARE SVB 

/COMPLETED BLOCK 
AYES 


/LOCK ONTO TST 
/\F OFFSET 12 TS NONWZERA 


patented fates at 


/FLOATING POINT 


4442 
4113 
4114 
4115 
4116 
44117 
4120 
4421 
{22 
4423 
4424 
4125 
4126 
4127 
4130 
4431 
4132 
4135 
4134 
4135 
4136 
4437 
4142 


EXERCISER 


Li3t 


4643 


1421 
5037 
1034 
4144 
2006 


541 


6776 
C444 
6776 
2441 
6776 
6531 
7376 
443% 


4746 


2481 
4121 
age 
1210 
1841 
4412 


/ 


OLAL4@ Ve2a3 


i 1 
{ 


BeAPRaT2 13437 PAGE 125 


/EXECUPE IN DOUBLE PRECISION MODE 


/ADDeSUBTRACT FEST 


/ 
FPP4, 


FPP4R, 


EJSR 
OPSET 
EJSA 

LINK 

EJA 

FPPS5 
ESTRTO 
EFLDALSi1 
TABLESe2 
EPADD{ 411 
TABLESe2 
EFSUBI 441 
TABLE Se2 
EFSTAISS4 
TABLE4e2 
EWSR 
DPCMPR 
EUXNIL88 
FPP4R 
EFCLA 

EF ADO {2108 
EJNE 


FPP4 


/JMPeSAVE RETURN 
ASETUP SUB 


LOAD RANDOM ARG 
/FROM TABLES 
/AeD 


/ Ashes 


STORE RESULT 
/IN TABLES 
/JMPeSAVE RETURN 
/COMPARE SUB 
/COMPLETEOD BLOCK 


/YES 
/LOCK ONTO TEST a 
/1F OFFSET 18 IS NON@ZERO 











/FLOATING POINT 


4444 
$142 
4443 
4144 
4445 
4446 
4447 
4159 
445141 
4452 
4453 
4454 
4485 
44536 
4137 
4162 
4461 
4462 
4468 
4464 
4165 
4166 
4467 
4170 
4471 





EXERCISER 


1134 
4476 
11421 
5237 
10314 
4172 
2885 
O541 
5775 
go04 
6244 
4441 
5775 
6212 
S2id 
6531 
6375 
1131 
4572 
2404 
4159 
BOR2 
1218 
1844 
4441 


DIALY@® VOG8S 


6wAPRa72 13437 PAGE 126 


/ 
JEXECUTE IN FLOATING POINT MODE 


/MULTIPLYeDIVIDE TEST 


/ 
FPPS, 


FPPSR, 


EJSR 

FSET 

FUSA 

LINK 

EWA 

FPP6 
ESTRIF 
EFLDAISi4 
TABLELeS 
EFNORM 
EFSTAI214 
EPMUL {444 
TABLEAeS 
EFSTA{212 
EFDIVi2i¢ 
FFSTAIS34 
TABLE?eS 
EWSR 
FOMPMD 
EJXNJ L082 
PPPSR 
EFCLA 

EF ADDI21¢ 
EJNE 

FPRS 


/JMPeSAVE RETERN 
/SETUP SUB 


/LOAD RANDOM ARG 
/FROM TABLES 
/NORMALIZE 

ASTORE IN OFFSET 17 
JAPA 


ASTORE IN OFFSET 12 
fASA/A 
ASTORE RESULT 
/IN TABLE@ 
/UMPeSAVE RETURN 
/COMPARE SUB 

/COMPLETED BLOCK 


/YES 
/LOCK ONTO TST 
/YF OFFSET 22 1S NONeZERO 


fo 
ORS coh! 








a 


\ 


/FLOATING POINT 


44.72: 
4473 
4474 
4475 
4476 
4477 
4220 
4204 
4202 
4203: 
4204 
4245 
4206 
4207 
4248 
424i 
4212 
4243 
4244 
4245 
4246 
4217 
4228 
4221 


EXERCISER 


1131. 
4643: 


ti21 
3237 
1034 
4222 
2086 
2314 
5776 


4&4 4. 


6776 
6212 
34114 
6776 
65313 
7376 


1432 


4746 
2101 
4294 
se82 
1242 
1341 
4172 


DIALI®@ VOGs 


sam 


Be APRa72 43437 PAGE 137 


/ 
/EXECUTE IN DOUBLE PRECIS{ON MODE 


MULTIPLY OIVIBE TEST 


/ 
FPP6, 


FPP6OR, 


EUSR 
OPSET 
EVJSA 

LINK 

EWA 

FPP?7 
ESTRTD 
EFL DAISi4 
TABLESe2 
EFMULI4114 
TABLESs2 
EFSTAI212 
EFOJVi4ais 
TABLESa2 
EFSTAISS4 
TABLE4e2 
EJSR 
DPCMPR 
EJXNIL80 
PPP6R 
EFCLA 
EFADD12108 
EJNE 

FPP6 


/gMPeSAVE RETURN 
SETUP ROUTINE 


/OAD RANDOM ARG 
FROM TABLES 
/ Ams 


/STORE IN OFFSET 12 
/AMASA 


/STORE RESULT 
/\N TABLES 
/JMPeSAVE RETURN 
/COMPARE SUB 
/COMPLETED BLOCK 


/YES 
/,OCK ONTO TST 
/YF OFFSET 42 3S NON@ZERO 














ee ee 





/FLOATING POINT 


4222 
$223 
4224 
$225 
$226 
4227 
4230 
4231 
$232 
4233 
4234 
4235 
4236 
4237 
4242 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4252 
4231 
4282 
42353 
4254 
4235 
4236 
4257 
$262 
4241 
4262 
42658 





EXERCISER OlalLi2@ VvaIa3 6@APRe72 13437 Pace 128 


4431 
4476 
1121 
5937 
4031 
4264 
8085 
0441 
5776 
8226 
922 
9905 
544 
5775 
9994 
@o12 
9004 
O212 
M904 
S12 
0904 
2812 
0004 
O21e2 
6534 
6375 
1131 
4536 
2401 
4234 
M002 
1212 
1041 
4222 


/ 
JEXECUTED IN FLOATING POINT MODE 
/NORMALIZE*ALIJON TEST 


/ 

FPP?7, EJSR AJMPeSAVE RETURN 
FSET /SETUP SUB 
EWSA 
LINK 
EWA 
FPPI@ 
ESTRITF 

FPP7R, EFLDAL44i4 7,940 RANDOM ARG 
TABLELe?2 AFROM TABLES 
ESTRTO 
FATX!2 /STORE IN YR 2 
ESTRIF 
EFLDA{5i4 4,940 RANQOM ARG 
TABLELeS /FROM TABLES 
EFNORM /NORMAL [ 2E 
EALNi@ ALIGN ON IR 2 
EFNQRM /ETC 
EALNI2 
EFNORM 
EALN{2 
EFNORM 
FALNI@ 
EFNORM 
EALNI2 
EFSTA(S34 /STORE RESULT 
TABLE@s3 JIN TABLE? 
EWJSR /dMPeSAVE RETURN 
FOMPR /COMPARE SUG 
EJXN{182 /COMPLEO BLOCK 
FPP7R 
EFCLA fYEtS 
EPADDI219 /L90K ONTO TSF 
EWNE /IF OFFSET? 42 {S$ NONZERO 
FPP? 


AON 


ae 


‘ 
H 
\ 


we 


ee a tnt 


= 


ae 


FLOATING POINT 


EXERCISER 


4131 
4654 
4124 
5937 
1034 
4347 
2926 
#742 
0044 
2945 
20144 
2045 
0014 
9915 
8944 
9045 
9044 
@245 
67314 
1131 
4726 
2101 
4273 
8082 
1210 
1044 
4264 


DIALI2 V8Os 


_ 


be APRe72 13137 PAGE 129 


/ 
/EXEGUTE IN DOUBLE PRECISION MODE 
/TESTS SHIFTING OF THE FAC VIA ALN INST 
/INDEX REG 4 CONTAINS NUM RIGHT SHIFTS 
/INDEX REG 5 CONTAINS NUM LEFT SHIFTS 


/ 
FPPI, 


EJSR 
DPSETS 
EWSA 
LINK 
EJA 
FPP4i4 
ESTRTO 


FPPIaR, EFLDAI 7412 


EALNI4 
EALNIS 
EALNIS 
EALNIS 
EALNI4 
EALNIS 
EALNI4 
EALNIS 
EALNI4 
EALNIS 
EFSTAI7S4 
ESR 
DPCPRY 
EJXNI 480 
FPP1BR 
EFCLA 
EFADO1212 


/JMP@SAVE RETURN 
ASETUP SUB 


460 TQ NEXT TEST 


/LOAD RAN ARG FROM TABLE 3 
SHIFT VIA TR 4 


SHIFT VIA JR 5 
/ETC 


ASTORE RESULT IN TABLES 

/JMPeSAVE RETURN 

/GOMPARE ROUTINE 
/COMPLETED BLOCK 


/YES 
/LOCK ONTO TST 
AIF OFFSET 12 3S NONZERO 

















JFLOATING POINT EXERCISER 


4347 
4322 
4321 
4322 
4323 
4324 
$325 
4326 
4327 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4349 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4359 
4331 





1131 
4312 
1424 


8005 
713 


4317 


/ 


DIALL@ V88S 


be APRe72 43137 PACE 132 


JEXECUTED IN FLOATING POINT MODE 
7ADD 70 MEMORYeSUBTRACT TEST 
JPRELIMINARY COMPARE OF FADDM AND FADD RESULTS MADE 


/THEY SHOULD BE EQUAL 


/ . 
PPPi4d, 


FPPLIR, 


GOL1, 


ESR 
PSETL 
EUSA 

LINK 

EJA 

FPPi2 
ESTRITF 
EFLOAS713 
EFADDI734 
EFSTa}222 
EFLDAIG13 
EFADDM} 634 
EFLDAI634 
EFSUBI 222 
EJEO 

Godt 
EFEX{T 
EFLOAIGL3 
EFSTAL634 
EYSR 
FOMPR 
EJXNS 182 
FPP1iR 
EFCLA 
EFADO} 210 


/JMPeSAVE RETURN 
ASETUP SUB 


/LOA0 RAN ARG FROM TABLES 


SAGA 
/STORE IN OFFSET 22 : 
/LQAD RAN ARG FROM TABLET 
/hea TO MEMORY 
/L,OAD Awd 
SUBTRACT OFFSET 22 
ASHOULOD EQUAL #ERO 
/YES a 
/FADOM AND FADO RESULTS BIFFER 
/L0a0 ARG IN PABLET 
/STORE BACK IN TABLE2 
/JMPeSAVE RETURN 
/COMPARE 

/COMPLETEO BLOCK 


/YES 
“LOCK ONTO TST 
/UF OFFSET 42 1S NON@ZERO 


oS 


= i, 
‘ 


/FLOATING POINT EXERCISER DJALI2 V283 6eAPRe72 13137 PAGE 131 : 


/ 

JEXECUTED IN DOUBLE PRECISION “ODE 

7499 TO MEMORYeSUBTRACT TEST 

JPRELIMINARY COMPARE OF FADDM AND FASD RESULTS ARE MADE 
/THEY SHOULD BE EQUAL 


/ 
4382 1131 FPP12, EJSR /UMPeSAVE RETURN 
4353 4671 DPSET%2 SETUP SUB 
4334 1121 EJSA 
4355 5237 LINK 
4356 1931 EWA 
4387 4495 FPP1S3 
4362 2986 ESTRTO 
4341 8712 FPPIOR, EFLDAIV12 /,0AD RAN ARG FROM TABLES 
4362 1731 EFADDI73S4 JADA 
4363 6222 EFSTA}222 /STORE JN OFFSET 22 
4364 2612 EFLDAI4612 7L0AD0 RAN ARG FROM TABLES 
4345 8634 EFADOMI631 /AwA TO MEMORY 
4366 6634 EPFLOAL6S4 /L040 RESULT A®A 
43467 2222 EFSUBI 222 /SUBTRACT OFFSET 22 
4372 1981 FYEQ /SHOULO EQUAL ZERO 
4371 4373 6042 /YES ; 
4372 e200 EFEXIT /FADDM AND FADO RESULTS OLFFER 
4373 612 GOie2, EFLDAI6412 /L.0A0 ARG IN TABLES 
4374 6631 EFSTAL634 /STORE BACK IN TABLES 
4375 4131 EYSR /JMPeSAVE RETURN 
4376 4746 OPCMPR /COMPARE SUB 
4377 2401 EJXN1162 /GCOMPLETED BLOCK 
449g 4364 FPPL2R . 
4404 8982 EFCLA /YES 
4492 1212 EFADDI@12 /,OCK ONTO TST? 
4403 1041 ENE AIF OFFSET 12 IS NONeZERO 


4474 4352 FPP12 











/FLOATING POINT 


4405 
4426 
4407 
4449 
44641 
4442 
4443 
4444 
4445 
4446 
4447 
4429 
4424 
4422 
4423 
4424 
4425 
4426 
4427 
4430 
4434 
4432 
4433 
4434 
4435 
4436 
4437 
4440 
4444 





EXERCISER 


1134 
4540 
1124 
5037 
1034 
4442 
3005 
743 
8004 
6244 
4734 
6222 
244 
7634 
634 
2222 
1004 
4439 
CLT: 
643 
6634 
1131 
4536 
2104 
4444 
ABe2 
1210 
1044 
4405 


CTALI@ V8GS GeAPRe72 13437 PAGE 132 


/ 

/EXECUPED IN FLOATING POINT MODE 

JMULTIPLY YO MEMORY DJVIDE TEST . 
/PRELIMINARY COMPARE OF FMULM AND FMUL RESULTS ARE MADE 
/THEY SHOULD BE EQUAL 


/ 
FPPi3, EYSR AYMPeSAVE RETURN 
FSET4 /SETUP SUB 
EUSA 
LINK 
EVA 
FPPL4 
ESTRIF 
FPPA3R, EFLDAI7413 /LOAD RAN ARG FROM TABLE 
FFNORM /NORMALIZE 
EFSTAL244 /STORE IN OFFSET 47 
FFMULI734 APA 
eFSTA}222 /STORE IN OFFSET 22 
EFLDAI2144 /LOAD OFFSET 44 
EFMULM1634 /AwA FO MEMORY 
EFLDAL634 _/,0A0 RESULT A®A 
EFSUBI222 /SUBTRACT OFFSET 22 
EJEQ /SHOULOD EQUAL ZERO 
6043 /YES 
EFEXIT /FMULM AND FMUL RESULTS SIPFER 
GO13, EFLOAI6413 /GEY ARG IN TABLES 
EFSTASG34 STORE BACK IN TABLE2 
EYSR /JMPeSAVE RETURN 
FCMPR / COMPARE | 
EUXNI188 /GOMPLETED BLOtK 
FPPLSR 
EFCLA /YES 
EFADD} 212 /LOCK ONTO TST 
EJNE /JF OFFSET 12 1S NONeZERS 
PPPi3 


7 
> 
\ 1 


/FLOATING POINT EXERCISER 


4442 
4443 
4444 
4445 
4446 
4447 
4459 
4454 
4482 
4453 
4484 
4435 
4456 
4487 
4469 
4464 
4462 
4463 
4464 
4465 
4466 
4467 


4473: 


44714 
4472 
4473 
4474 


4475 


4476 
4477 
4520 
4541 
4542 
4543 
4534 
4595 
456 
4SA7 


1134 
46714 
1124 
5237 
12314 
4213 
eg ge 4 & 
at 2 
4734 
6222 
612 
7631 
2634 
2222 
1004 
4463 
ra) 
2612 
6631 
1434 
4716 
2401 
4454 
AOBe 
1249 
1234 
4013 


A982 


JOBS 
A982 
A132 
7653 
A104 
“DGB 
ALAS 
"830 
1034 
S7A4 


/ 


DTALL2 


V223 


am 


Be APRe72 13437 PAGE i123 


/EXECUTED IN DOUBLE PRECISION MOCE 
/MULTIPLY TO MEMORY*DIvIce TEST 
/PRELIMINARY COMPARE OF FMULM AND FMUL RESULTS ARE MADE 


/TWEY SHOULO BE EQUAL 


/ 
FPP14, 


FPPL4R, 


6014, 


EYSR 
DPSET2 
EJSA 

LINK 

EWA 

FPP1 
ESTRTO 
EFLDAI712 
EFMULI734 
EFSTAL222 
EFLDAL612 
EFMULMI632 
EFLDAIOS4 
EFSUBI222 
YEO 

6044 
EFEXIT 
EFLDAI 612 
EFSTALO34 
EJSR 
DPCMPR 
EWXNILO@ 
FPP14R 
EFCLA 
EFADDI 210 
EVA 

FPP1 


/ 
/OUMMY POINTER 
ZEND OF FPP TESTS WAS FPPL4 


/ 
FPPIS5, 


Q 


/IMPeSAVE RETURN 
/SETUP SUB 


/LOAD RAN ARG FROM TABLES 
/A@A 

/STORE IN OFFSET 22 

/,0A0 RAN ARG FROM TABLES 
/AwA FO MEMORY 

/LOAD RESULT A®A 
ASUBYRACT OFFSET 22 
SHOULD EQUAL ZERO 

/YES 

ZFMULM ANDO FMUL RESULT DIFFERS 
/L0aD ARG IN TABLES 

/PUT BACK IN TABLES 
/SMPeSAVE RETURN 

/COMPARE SVB 

/COMPLETED BLOCK 


/YES 
/LOCK ONTO TSF 


/ 
ZENTERED ONLY IN FLOATING POINT MODE 
/SET UP OF FPP INDEX REGISTERS 


/ 
FSET, 


ESTRIF 
EFCLA 
FLOX!@ 
7653 
ELOX!4 


2 
ELOX!S 
ty 


EWA 
BASEed 


/CLEAR ie FAC 

/WOAD IR 

/WITH nas 

/LCAD IR 1 

AWITH 2 

/ALOAD IR 3 

WITH 2 

JUMP ALWAYS 

/JOFFSET 4 IN BASE REG TABLE 














/FLOATING POINT 


4510 
4541 
4512 
4513 
4514 
4515 
4516 
4517 
4520 
4524 
4522 
4523 
4524 
4525 
4526 
4527 
4530 
4531 
4532 
4533 
4534 
4535 





EXERCISES 


2025 
SB22 
2122 
7653 
G121 
AOD 
ALA2 
7653 
2425 
ALO 
0104 
AOAC 
2185 
2082 
O544 
5775 
6351 
6375 
212i 
4526 
180341 
5784 


DIALLS 


V8O3 


Be APRe72 


13437 PAGE 134 


/ 

JENTERED ONLY IN FLOATING POINT MODE 
/SETS UP FPP INDEX REGISTERS 
/OUPLICATES TABLEL INTO TABLE? 


oe 
FSET¢, 


MORE, 


ESTRTF 
EFCLA 
ELOx {2 
7653 
ELOX{4S 
Oo 


ELOX{2 
7653 
ELOX!S 


g 
ELOX! 4 
4 
FLOX}S 
g 


EFLOAIS4¢ 
TABLELeS 
EFSTAI554 
TABLE SaaS 
EUXN!12 
MORE 

EVA 
BASEe) 


/CLEAR THE FAC 
/LO0A0 IR 8 


/WITH 
/LOAD 
/WITH 
LOAD 
AWTTH 
/OA0 
/WIiTH 
/LOAD 
AWITH 
/L0A0 
/WITH 
/OAD 


#125 
TR 4 
g 


IR 2 
©4125 
IR $3 
2 
TR 4 
8 


IR 5 
g 
RAN ARG 


AN TABLED 
/STORE RAN ARG 
/IN TABLES 


DONE 125 TIMES 


/NOwDO IT AGAIN 
IMP ALWAYS 
/OFFSET @ IN BASE REG TABLE 


/FLOATING FSINT EXERCISER 


4536 
4537 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4530 
45314 
4552 
4533 
4554 
4535 
4536 
4537 


0441 
8775 
2431 
6$75 
1004 
4545 
0949 
B2i6 
1001 
4556 
8112 
7777 
M444 
7777 
e113 
7797 
1031 
5704 


NTALI@ V803 


{ a 
H 3 
( 


Be APRe7?2 13137 PASE 135 


/ 
ZENTER ONLY IN FLOATING POINT MODE 
/COMPARE TABLES WITH TABLE? 


/THEY SHOULD BE EQUAL 


/TEST OFFSET 16 IN BASE REG TABLE 
/IF NOF ZERO 
/JOECREMENT INDEX REGISTERS AND 

JEXECUTE SAME ARGUMENT IN TABLEL AGAIN 

/THE RET PORTION OF THIS ROUTINE 

JS USED BY ALL OTHER COMPARE ROUTINES 

ZIN BOTH FLOATING POINT AND DOUBLE PRECISION MODE 


/ 
FOMPR, 


ERET, 


EFLDA}4i11 
TABLELe3 
EFSUBI4S4 
TABLE2eS 
EJEQ 

FRET 
EPNOP 
EFLDAIS216 
EJEQ 
RETING 
EAQDOXI® 


RETING, EWA 


BASEed 


/LQAD RAN ARG 

/IN TABLEY 

/SUBTRACT RESULT 

/IN TABLE2 

/JMP IF FACe® 

AREY ROUTINE YO REENTER MAIN FPP PROG 


/LOAD OFFSET 16 IN BASE REG TABLE 

/UMP TF FACe@eelE, DON? LOGK ONTO TEST SEG 
/RETURN TO MAIN FRPP PROG 

/A0D TO IR B 


fet 
ADD TO IR 1 


feh 

400 TO IR $ 

/#4 

/JMP ALWAYS 

/OFFSET OF @ IN BASE REG 











/FLOATING POINT 


4562 
4541 
4562 
4563 
4564 
4545 
4546 
4567 


4570 
4571 


4572 
4573 
4574 
4575 
4576 
4577 
4602 
4601 


EXERCISER DIAL12 V203 GeAPRe72 13337 PAGE 136 


2441 
5775 
2431 
6375 
1841 
4570 
1831 
4545 


1931 
4545 


0441 
3775 
2431 
6375 
10414 
4622 
1834 
4545 


/ 

JENTER ONLY IN FLOATING POINT MODE 
/FROM AN ADDITION@SUBTRACTION TEST 
/COMPARE YABLEY WITH TABLE? 

/THEY SHOULD BE EQUAL 


/ 
FOMPAS, EFLDA[ 444 /LOAD RAN ARG 
TABLELeS AN TABLES 
FFSUBI 434 SUBTRACT RESULT 
TABLEZeS IN TABLE? 
E UNE JUMP JF FAC NOT 4@ 
FASCK /ADD@SUBTRACYT DATA ERROR 
EWA /gMP ALWAYS 
FRET /RET ROUTINE TO REENTER MAIN FPP PROG 
/ 
/FLOATING POINT ADH=SUB FAILED 
V4 
FASCK, EWA /DATA ERROR EXIT 
/ 
ERET 


JENTERED ONLY EN FLOATING POINT MODE 

FROM ROUTINE BOING A MULTIPLY®OIVIDE TEST 

7THYS ROUTINE COMPARES TABLES WITH TABLE? 

pe SHOULO BE EQUAL 7 


SCMPMD, EFLOAL@14 /,0AD RAN ARG _ 
TABLELOS JIN TABLES 
EFSUBI 433 /SUBTRACT RESULT 
TASLESaS JIN TABLEQ 
EVNE /JMP YF Fac NOT @ %0 FEMO 
FMOCK /CHECK FOR LEGAL UNDERPLOW 
EuA 7JMP ALWAYS | 
ERET PRET ROUTINE TO REBNTER MAIN FPP PROG 


: , 
y Ed 
i 


/FLOATING POINT EXERCISER 


4602 
4623 
46n4 
4605 
46M6 
46.97 
4649 
4644 
4642 
4643 
4644 
4645 
4616 
4617 
4623 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4632 
4634 


4632 
4633 
4634 
4635 
4636 
4637 
4640 
4641 
4642 


2434 
4375 
1004 
4632 
0206 
1214 
SG25 
6245 
0245 
2444 
5775 
1004 
4545 
0434 
6375 
BB86 
1247 
2005 
6221 
0224 
2441 
5775 
1934 
4545 


0444 
5775 
4213 
1904 
4545 
ABB2 
6223 
1234 
4545 


/ 


OTALYL@ V8IGs3 


Allin, A a 
t 


6eAPRe72 43437 PAGE 137 


ZENTEREO ONLY IN FLOATING POINT MODE 


/FROM FCMPMO ROUTINE 


/WHEN RANDOM ARG DIFFERS FROM RESULT 
/BY PLUS OR MINUS «4 DUE TO ROUNDING 
JROUTINE TESTS FOR TRIS OCCURANCE 


/ 
FMOCK, 


EFLOAI4S4 
TABLE2eS 
EJEO 

F2ZMD 
ESTRITO 
FFADD}214 
ESTRTF 
EFSTA}215 
EFLOA(215 
EFSUBI414 
TABLEIsS 
EJEQ 

ERET 
EFLDAI43S4£ 
TABLEQeS 
ESTRTO 
EFADDI217 
ESTRIF 
EFSTAi 224 
EPLOAL224 
EFSUBI414 
TABLELeS 
EWA 

FRET 


/LOAQ RESULT 

/FROM TABLE? 

/JMP IF FACS? TO 

/ROUTINE TO TEST FOR LEGAL UNDERFLOW 


/SUBTRACT 4 CONTAINED IN OFFSE? 14 OF BASE REG 


/STORE IN OFFSET 15 OF BASE REG 

/LOAD OFFSET 45 IN BASE REG 

SUBTRACT RAN ARG 

AYN TABLEL 

/dMP TF FACa2 

JRET ROUTINE YO REENTER MAIN FPP PROG 
/LOAD WITH RESULT 

/IN TABLE? 


/ADD 4 CONTAINED IN OFFSET 17 OF BASE REG 
/STORE IN OFFSET ef BASE REG 

/,0A0 OFFSET 24 IN BASE REG 

/SUBTRACT RAN ARG 

AN TABLES 


/RET ROUTINE FO REsENTER MAIN FPP PROG 


/ 

ZENTERED ONLY JN FLOATING POINT MODE 
/WHEN RESULT HAS ZERO MANTISSA 
/ROUTINE TESTS FOR A LEGAL UNDERFLOW 


/ 
FZMD, 


EFLOAIAL4 
TABLELeS 
EFMULI243 
EJEQ 

ERET 
FFCLA 
FFSTAI223 
EWA 

FRET 


/LOAD RANDOM ARG 

/FROM TABLEL 

A/MULTIPLY BY CONSTANY IN QPFSET 43 OF BASE REG 
/JMP IF FACaS 

ARET ROUTINE TO MAIN FPP PROG 

CLEAR Fac 

/FLAG 8 UNDERFLOW NOT LEGAL 














JFLOATING POINT EXERCISER 


4643 
4644 
4645 
4646 
£647 
4659 
4654 
4682 
4633 


4654 
4655 
4636 
4657 
4662 
4661 
4662 
4643 
4664 
4645 
4666 
4647 
4679 





CB26 
7120 
7682 
Ld 
S082 
A123 
ABD 
1834 
5784 


A006 
100 
7602 
C104 
LL: 
2103 
1920 
104 
agia 
195 
7764 
1031 
5704 


/ 


DTALIB VES 


4eAPRa72 


/SEYT YP OF FPP INDEX REGISTERS 
/FOR OPERATION IN SOUBLE PRECISION MODE 


/ 
DPSET, 


/ 

/SET UP OF FPP INDEX REGISTERS ON PAGE 
/FOR OPERATION IN DOUBLE PRECISION MODE 
JENTERED FROM FPP1Q TEST 


ESTRTO 
ELOX!8 
7680 
ELOXId 
ty 


ELOX!S 
a 


EA 
BASE) 


/ 
DPSET1, ESTRTO 


ELOx!e 
7629 
ELOX{d 


g 
ELOX!S 
g 
ELOX!4 
14 
ELOX$S 
7764 


EJA 
BASE#) 


/LOA0 IR 2 
/WITH #200 - 
J,OAD IR J 
/WITH 2 
ALOAD IR $ 
AWITH @ 
/JMP ALWAYS 


13137 


PAGE 138 


/QFFSET @ IN BASE REG TABLE 


/L0a0 IR B 
/WITH 9200 
/LOAD IR & 
AWITH @ 
/L0A0 IR $ 
/WITH @ 
7LOAD IR 4 
AWITH 14 
7LOa0 IR 5 
AWITH #288 
AJMP ALWAYS 


/OFFSET O IN BASE REG TABLE 


EEA nd te ethntna enter 





ai, 2 
1 : i 
} 
v f 
| 7 
af 


/FLOATING POINT EXERCISER OTALLO VOA3 6eAPRa72 135137 PAGE 129 . 
/ 
a /SET UP OF FPP YNOEX REGISTERS ON PAGE 2 
/DUPLICATION OF TABLES INTO TABLES 


/ 
4671 7036 MPSET2, ESTRID 


4672 %1%9 ELOX!2 /LOAD IR @ 

4673 7692 7630 JWITH ©2028 

4674 ALA1 EFLOX!2 LOAD IR 4 

4675 7209 a JWITH 2B 

4676 2182 ELOX!2 /LOAD IR 2 

4677 7682 7699 /WITH #202 

4700 9103 ELOX!S 4L0a0 IR 3 

47014 A2GQ a /WITH @ 

4702 84194 FLOX!4 /LQAD IR 4 

4743 2902 @ /WITH @ 

4794 9125 ELOXx!5 /LOA0 IR § 

4795 6202 2 /WITH 2 

4786 3544 MOR, FFLOAIS 44 /LOAD RAN ARG 

4707 6776 TABLESe2 /FROM TABLES 

4749 6551 EPSTAIS54 /STORE [T 

4741 7376 TABLE4e2 /IN TABLES 

4742 2421 ESXNIL29 /DONE 208 TIMES 

4743 4726 MOR /NO#eDO JT AGAIN 

4744 1931 EWA AdMP ALWAYS 

4745 8701 BASE+!% /OFFSET @ IN BASE REG TABLE 
/ 


/COMPARES DOUBLE PRECISION NUMBERS 
/TABLES WITH TABLES 
/VSING DOUBLE WORD OIRECT REFERENCE INSTRUCTIONS 


/ 
4716 4141 DPCMPR, EFLDAI411 /LOAD RANDOM ARG 
4747 6776 TABLE Se2 /FROM TABLES 
4720 24314 EFSUBI 4352 /SUBYRACT RESULT 
4721 7376 TABLE4e2 /FROM TABLES 
4722 1081 EWJEQ /\F THEY ARE EQUAL 
4723 4545 ERET 7iMP TO RET 
4724 1034 EWA 
4725 4545 ERET 


/ 

/COMPARES DOUBLE PRECISION NUMBERS 

/TABLES WITH TABLES 

/USING SINGLE WORD INDIRECT REFERENCE INSTRUCTIONS 


/ 
4726 4631 DPCPRi, EFLDAI6S42 /LOAD RESULT FROM TABLE4 
4797 2642 EFSUBI612 /SUBTRACT RAN ARG FROM TABLE® 
4739 18234 FYEQ YF THEY ARE EQUAL 
4734 4545 FRET /JMP TO RET 
4732 1031 EVA 


4733 4545 FRET 











JFLOATING POINT EXERCISER 


4734 
$735 
4736 
4737 
4742 
47414 
4742 
4743 
4744 
4745 
4746 
4747 
4752 
4751 
4752 
4753 
47534 
4755 
4756 
4757 
4766 
4761 
4762 
$763 
4744 
4765 
4766 
4767 
4779 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
7088 
5284 





1141 
5226 
1411 
5022 
191 
gag 
A142 
7620 
0006 
e202 
1954 
4756 
2293 
1051 
4756 
202 
2200 
6202 
8202 
6441 
6000 
441 
6000 
1224 
6444 
7008 
1284 
6544 
6000 
2101 
4764 
6222 
1134 
5016 
1411 
5720 
1031 
5701 


RANGEN, 


RCONST, 


RGENA, 


DIALL2 vee3 6eAPRe72 13137 


FSETX 
XREG2 
ESETS 
RBASE 
FLOX!4 
8290 
ELOX!@ 
“209 
ESTRTO 
EFLDA!2@2 
EWLTIa 
RCONST 
EFSUBI283$ 
EW? 
RCONST 
EFLDAL2@2 
EFSUBI202 
EFSTA{202 
EFLOAL282 
EFSTA{444 
TABLES 
EFLOA{4i4 
TABLES 
EFADOS204 
EFSTAI414 
TABLES 
EFADOL 201 
EFSTA{S44 
TABLES 
EUXNI182 
RGENA 
EFSTA}282 
FSETX 
XREG4 
ESETB 
BASE 
EJASL 
BASEed 


PAGE 148 


a 


- 


/FLOATING POINT 


> gZ2%2 
5243 
5204 
5gas 
32926 
3227 
3942 
5Q44 
5212 
3943 
5244 
5215 


5016 
5017 
5220 
3Q24 
3222 
3223 
3224 
3925 
3226 
3027 
3230 
5Q34 
5832 
3233 
— 5 O34 
3035 


EXERCISER 


2290 
2657 
1234 
2080 
AQSS 
AB1L 
ABA2 
2290 
AOR 
2220 
1373 
2Oa2 


BBA8 
AGB 
M282 
2080 
2080 
ABO 
2082 
S882 
2020 
BBO 
BOBO 
O2L8 
2202 
2020 
2O80 
2OOR 


RBASE, 


XREG{, 


XREG2, 


NIAL4@ Vaz Be APRe79 13137 PAGE 1414 


2202 
2657 
1234 
7222 
A025 
@2i1 
222 
2208 
A282 
20238 
1373 
2090 


QQ aa sa ae» avgacq aan Ss 











PFLOATING POINT 


7O 6 


5237 
5242 
5244 
5242 
5943 
5g44 
545 
5946 
5247 
5252 
5934 
5g52 


3853 
5994 


5285 





EXERCISER 

P O22 FEN, 
/ 
/ 


123% LINK, 
414 
2424 
5045 
1234 
9237 
ALGAE 
C404 
5237 
1401 
5853 
2007 


208g TWO, 
S8A2 


S282 XREG, 


/ 


SYALL2 Vaas 6eAPRe72 15137 


EWA 

FPP yed 
FUXNILO2 
A) 

EVA 

LINK 
ESTRTO 
EFLOAI424 
LINK 

EF ADO} 424 
TWO 

E WAC 


8200 
C282 


2 


/BASE REGISTER TABLE 
JCONTAINS CONSTANTS@FLAGS@ TEMPORARY STORAGE | 
/BASE*{ AND BASE*#2 CONTAIN RETURN UMP FROM SUBROUTINE 


/ 


PAGE 142 


C 


aN 


ii, A m, 4 
=3 Ey 
1 ] 

1 Fi 


/FLOATING POINT EXERCISER NTAL{@ V2a3 6eAPRa/2 13137 PAGE 143 . 

5732 a5728 

5770 7908 SASE, Z /QFFSET OF @ 

5741 2£090 A 

5792 929 a 

5743 gag A /QFFSET OF 4 

57974 S801 SO2S4 

5795 7376 7376 

5726 2000 q /OFFSET OF 2 

5727 204 A034 

5748 6776 6776 

5744 9229 "4 OFFSET OF 3 

5742 2801 B51 

53743 3775 5775 

3744 %300 g /OFFSET OF 4 

5745 @@04 A004 

5746 6375 6375 

5747 2090 4 /OFFSET OF 5 

5728 2229 Ms 

E72i 2880 a 

5722 2802 g /OFFSET OF 6 

5723 2208 g 

5724 8829 8 

5725 8890 0 OFFSET OF 7 

5726 88202 g 

5727 60298 ', 

5732 090 g OFFSET OF 12 

57314 8890 a 











ee neni treet remain elienlt tt eer 


/FLOATING POINT 


3732 
3733 
5734 
5735 
5736 
5737 
3740 
5741 
5742 
5743 
5744 
5745 
5746 
5747 
5732 
5751 
53752 
5753 
5784 
3785 
3756 
5737 
3769 
57641 
5762 
5763 
3764 
3765 
5766 
3767 
3772 
3774 
5772 
5773 





EXERCISER 


7829 
2222 
202Q 
2022 
7800 
C320 
2222 
6922 
3777 
7977 
2998 
7777 
7777 
2292 
7282 
CBa2 
2828 
2822 
2820 
S022 
2088 
OOB1 
2080 
a) 
2080 
2080 
2280 
4890 
2088 
2220 
2682 
2008 
S080 
7777 


LOKTST, 


LOKSEG, 


RESLT: 


UFLO, 


OLALS2 VaIaS 


6eAPRe72 


JOFFSET 


JOFFSET 


/OFFSET 


/QFFSET 


/OFFSET 


/OFFSET 


/OFFSET 


/OFFSET 


/QFFSET 


OFFSET 


/OFFSET 


OF 


OF 


OF 


OF 


OF 


oF 


oF 


OF 


OF 


OF 


OF 


ii 


12 


13 


14 


15 


16 


17 


28 


et 


22 


2s 


a 


oe an 1 tl enerennnianeniticldlitammetninleys Asta — Sellinet 


3 
e 2 
N 


/FLOATING FOLNT EXERCISER DIALS VIBS be APRa72 


6342 


$472 


7098. 


748 


4222 
2282 


64282 
22099 


7828 
2222 


7420 
%O8R 


/ 
/ 


/ 

/FLOATING POINT MODE 
/RANSOM DATA TABLE 1 

4422 OCTAL. LOCATIONS LONG 


/ 
#6908 
TABLEL, 2 
/ 
/ 


/FLOATING POINT MODE 
/RESULTING ARG TABLE 2 
AUSEB IN ASSOCIATION WITH TABLE 4 
/482 OCTAL LOCATIONS LONG 
/ 
#6490 
TABLE2, 2 
/ 


/ 

/DOUBLE PRECISION MODE 
/RANBOM DATA TABLE 3 

/400 OGTAL LOCATIONS LONG 


/ 
#7808 
TABLES, @ 
/ 
/ 


/QOWBLE PRECISYON MODE 

/RESULTING ARGUMENT TABLE 4 

AUVSEH IN ASSOCTATION WITH TABLE 3 
4402 QETAL LOCATIONS LONG 


/ 
#7402 
TABLE4, 2 
/ 
/ 


SULUDETALALALOLA LA DI LALA TEED EL TASS 
JUITTZLALZEND OF PROGRAM//SSASISS/ SLATS 
PULLIATATLOLLET LETT ELEELAAT LTT 


13137 


PAGE 145 

















FLOATING POINT 


A462 
2463 
7164 
7165 
2166 
0167 
2472 
A174 
4172 
2178 
0474 
01475 
7476 
6177 





EXERCISER 


2254 
7336 
347 
2346 
7302 
620 
7346 
2672 
0666 
8665 
2064 
9062 
7772 
7343 


DI AL48 


V283 


62APRea72 


13137 


PAGE 146 


/FLOATING POINT 


g282 
C182 


2208 
2302 


8402 
8580 


9688 
e702 
1800 
4162 
1208 
1380 
{4p2 
1582 
4602 
1700 


2008 
2102 


2202 
2300 


2498 
2588 


2688 
2700 
3088 
3188 


3282 
3582 


3482 
3502 


3602 
3700 


‘> 


x 


12202206 
4141111414 


41144141 
41111111 


41444111 
Gitidiia 


iiiisii1 
dititii1 
11442144 
diiadi41 


11444441 
OBES OSB 


Giiitiis 
fisiiiii 


diiit1i1 
diiitiii 
ditatiii 
ditidadi 


dititiiti 
44414441 


ditiiiii 
41444141 


qitiiid4 
diiii4i4 


EXERCISER 


POOoeooe 
S140 141 


1ifi1ifi 
t1iititi 


ttiiiiis 
11114141 


‘SE EEE GE! 
tafiiits 
1A 4144 
Sitiitid 


41441441 
egagee20 


Siidiii1 
tifiiif4 


1itiiai4 


417114701 


14214444 
4id4ati%1 


s4ii4ai1 
14211141 


11414474 
si es le le 


tiiaiif1 
tifiiifs 


STAL<2 


oa ie Eat 
Piipiiii 
ni ee it 
41414111 


4icii144 
G2008828 


ets iiiti 
41414414 
42244141 
41¢14444 
11411002 
Segeeea0 
ESESESE 
44fafi14 


41i4d413 
41fifii1 


4i¢id4a1 
42447144 


FECEEEE 
qiiagiis 
d1faiai1 
42iaiii4 
ECCEECE! 
qagiifii4 


V223 


1411141 
41111882 


Lidsiiii 
idiiiis 


di4i414¢1 
apagadad 


ftiiitii 
i4daiii1 
afiii41 
11414441 


oeee0ee0 
aeege0eg 
tidiiii1 
d4414i01 


4241421 
ES SCE SE! 


42421441 
4af11141 


a24144i4 
FECeECE 


1idisiits 
42211171 


1if1iii1 
iiiiiiits 


6eAPRe7o 


111341114 
924708028 


(1144114 
71111129 


diiiiii1 
2208020 


Catt4ii4 
11100020 
diangit4 
eceteee 


SB200H2B 
SQASAHLA 


Giiiaitt 
recetese! 


Gitgiii1 
71114008 
Giiiiitd 
eeeeree! 


daqisiid 
daddaiid 


dasagiis 
regeteee 


diiadit4 
12202082 


-~ 


41414141 
AQACAAY 


11411111 
S2AGAG29 


11idiiii4 
22080009 


14442421 
P2OS2009 
Liditiii 
41411120 


PLOSLHHS 
B2GG2889 


41244441 
44444231 


44443141 
S2GGAR89 
42413431 
41441441 


44414131 
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